home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-10-28 | 18.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 70 73 69 |piled by| rms@psi|
|00000020| 6c 6f 63 69 6e 2e 67 6e | 75 2e 61 69 2e 6d 69 74 |locin.gn|u.ai.mit|
|00000030| 2e 65 64 75 20 6f 6e 20 | 4d 6f 6e 20 4a 75 6e 20 |.edu on |Mon Jun |
|00000040| 31 30 20 31 37 3a 33 38 | 3a 33 37 20 31 39 39 36 |10 17:38|:37 1996|
|00000050| 0a 3b 3b 3b 20 66 72 6f | 6d 20 66 69 6c 65 20 2f |.;;; fro|m file /|
|00000060| 68 6f 6d 65 2f 66 73 66 | 2f 72 6d 73 2f 65 31 39 |home/fsf|/rms/e19|
|00000070| 2f 6c 69 73 70 2f 68 65 | 78 6c 2e 65 6c 0a 3b 3b |/lisp/he|xl.el.;;|
|00000080| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|00000090| 31 39 2e 33 31 2e 32 2e | 0a 3b 3b 3b 20 62 79 74 |19.31.2.|.;;; byt|
|000000a0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 46 53 |ecomp ve|rsion FS|
|000000b0| 46 20 32 2e 31 30 0a 3b | 3b 3b 20 6f 70 74 69 6d |F 2.10.;|;; optim|
|000000c0| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|000000d0| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|000000e0| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|000000f0| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000100| 45 6d 61 63 73 20 31 38 | 2e 0a 0a 28 69 66 20 28 |Emacs 18|...(if (|
|00000110| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000120| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000130| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000140| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|00000150| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|00000160| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |. (s|tring-le|
|00000170| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|00000180| 6e 20 22 31 39 2e 32 39 | 22 29 29 29 0a 20 20 20 |n "19.29|"))). |
|00000190| 20 28 65 72 72 6f 72 20 | 22 60 68 65 78 6c 2e 65 | (error |"`hexl.e|
|000001a0| 6c 27 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |l' was c|ompiled |
|000001b0| 66 6f 72 20 45 6d 61 63 | 73 20 31 39 2e 32 39 20 |for Emac|s 19.29 |
|000001c0| 6f 72 20 6c 61 74 65 72 | 22 29 29 0a 0a 0a 23 40 |or later|"))...#@|
|000001d0| 31 35 37 20 54 68 65 20 | 70 72 6f 67 72 61 6d 20 |157 The |program |
|000001e0| 74 68 61 74 20 77 69 6c | 6c 20 68 65 78 6c 69 66 |that wil|l hexlif|
|000001f0| 79 20 61 6e 64 20 64 65 | 68 65 78 6c 69 66 79 20 |y and de|hexlify |
|00000200| 69 74 73 20 73 74 64 69 | 6e 2e 0a 60 68 65 78 6c |its stdi|n..`hexl|
|00000210| 2d 70 72 6f 67 72 61 6d | 27 20 77 69 6c 6c 20 61 |-program|' will a|
|00000220| 6c 77 61 79 73 20 62 65 | 20 63 6f 6e 63 61 74 65 |lways be| concate|
|00000230| 6e 61 74 65 64 20 77 69 | 74 68 20 60 68 65 78 6c |nated wi|th `hexl|
|00000240| 2d 6f 70 74 69 6f 6e 73 | 27 0a 61 6e 64 20 22 2d |-options|'.and "-|
|00000250| 64 65 22 20 77 68 65 6e | 20 64 65 68 65 78 6c 69 |de" when| dehexli|
|00000260| 66 79 69 6e 67 20 61 20 | 62 75 66 66 65 72 2e 1f |fying a |buffer..|
|00000270| 0a 28 64 65 66 76 61 72 | 20 68 65 78 6c 2d 70 72 |.(defvar| hexl-pr|
|00000280| 6f 67 72 61 6d 20 22 68 | 65 78 6c 22 20 28 23 24 |ogram "h|exl" (#$|
|00000290| 20 2e 20 34 36 38 29 29 | 0a 23 40 39 38 20 49 66 | . 468))|.#@98 If|
|000002a0| 20 79 6f 75 72 20 65 6d | 61 63 73 20 63 61 6e 20 | your em|acs can |
|000002b0| 68 61 6e 64 6c 65 20 49 | 53 4f 20 63 68 61 72 61 |handle I|SO chara|
|000002c0| 63 74 65 72 73 2c 20 74 | 68 69 73 20 73 68 6f 75 |cters, t|his shou|
|000002d0| 6c 64 20 62 65 20 73 65 | 74 20 74 6f 0a 22 2d 69 |ld be se|t to."-i|
|000002e0| 73 6f 22 20 6f 74 68 65 | 72 77 69 73 65 20 69 74 |so" othe|rwise it|
|000002f0| 20 73 68 6f 75 6c 64 20 | 62 65 20 22 22 2e 1f 0a | should |be ""...|
|00000300| 28 64 65 66 76 61 72 20 | 68 65 78 6c 2d 69 73 6f |(defvar |hexl-iso|
|00000310| 20 22 22 20 28 23 24 20 | 2e 20 36 37 30 29 29 0a | "" (#$ |. 670)).|
|00000320| 23 40 34 37 20 4f 70 74 | 69 6f 6e 73 20 74 6f 20 |#@47 Opt|ions to |
|00000330| 68 65 78 6c 2d 70 72 6f | 67 72 61 6d 20 74 68 61 |hexl-pro|gram tha|
|00000340| 74 20 73 75 69 74 20 79 | 6f 75 72 20 6e 65 65 64 |t suit y|our need|
|00000350| 73 2e 1f 0a 28 64 65 66 | 76 61 72 20 68 65 78 6c |s...(def|var hexl|
|00000360| 2d 6f 70 74 69 6f 6e 73 | 20 28 66 6f 72 6d 61 74 |-options| (format|
|00000370| 20 22 2d 68 65 78 20 25 | 73 22 20 68 65 78 6c 2d | "-hex %|s" hexl-|
|00000380| 69 73 6f 29 20 28 23 24 | 20 2e 20 38 30 35 29 29 |iso) (#$| . 805))|
|00000390| 0a 23 40 34 31 20 54 68 | 65 20 63 6f 6d 6d 61 6e |.#@41 Th|e comman|
|000003a0| 64 20 74 6f 20 75 73 65 | 20 74 6f 20 68 65 78 6c |d to use| to hexl|
|000003b0| 69 66 79 20 61 20 62 75 | 66 66 65 72 2e 1f 0a 28 |ify a bu|ffer...(|
|000003c0| 64 65 66 76 61 72 20 68 | 65 78 6c 69 66 79 2d 63 |defvar h|exlify-c|
|000003d0| 6f 6d 6d 61 6e 64 20 28 | 66 6f 72 6d 61 74 20 22 |ommand (|format "|
|000003e0| 25 73 25 73 20 25 73 22 | 20 65 78 65 63 2d 64 69 |%s%s %s"| exec-di|
|000003f0| 72 65 63 74 6f 72 79 20 | 68 65 78 6c 2d 70 72 6f |rectory |hexl-pro|
|00000400| 67 72 61 6d 20 68 65 78 | 6c 2d 6f 70 74 69 6f 6e |gram hex|l-option|
|00000410| 73 29 20 28 23 24 20 2e | 20 39 31 38 29 29 0a 23 |s) (#$ .| 918)).#|
|00000420| 40 34 33 20 54 68 65 20 | 63 6f 6d 6d 61 6e 64 20 |@43 The |command |
|00000430| 74 6f 20 75 73 65 20 74 | 6f 20 75 6e 68 65 78 6c |to use t|o unhexl|
|00000440| 69 66 79 20 61 20 62 75 | 66 66 65 72 2e 1f 0a 28 |ify a bu|ffer...(|
|00000450| 64 65 66 76 61 72 20 64 | 65 68 65 78 6c 69 66 79 |defvar d|ehexlify|
|00000460| 2d 63 6f 6d 6d 61 6e 64 | 20 28 66 6f 72 6d 61 74 |-command| (format|
|00000470| 20 22 25 73 25 73 20 2d | 64 65 20 25 73 22 20 65 | "%s%s -|de %s" e|
|00000480| 78 65 63 2d 64 69 72 65 | 63 74 6f 72 79 20 68 65 |xec-dire|ctory he|
|00000490| 78 6c 2d 70 72 6f 67 72 | 61 6d 20 68 65 78 6c 2d |xl-progr|am hexl-|
|000004a0| 6f 70 74 69 6f 6e 73 29 | 20 28 23 24 20 2e 20 31 |options)| (#$ . 1|
|000004b0| 30 36 30 29 29 0a 23 40 | 33 34 20 4d 61 78 69 6d |060)).#@|34 Maxim|
|000004c0| 75 6d 20 6f 66 66 73 65 | 74 20 69 6e 74 6f 20 68 |um offse|t into h|
|000004d0| 65 78 6c 20 62 75 66 66 | 65 72 2e 1f 0a 28 64 65 |exl buff|er...(de|
|000004e0| 66 76 61 72 20 68 65 78 | 6c 2d 6d 61 78 2d 61 64 |fvar hex|l-max-ad|
|000004f0| 64 72 65 73 73 20 30 20 | 28 23 24 20 2e 20 31 32 |dress 0 |(#$ . 12|
|00000500| 31 31 29 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |11)).(by|te-code |
|00000510| 22 c0 c1 21 84 08 00 c2 | 11 c1 0b 42 13 c4 0b 42 |"..!....|...B...B|
|00000520| 13 c5 0b 42 13 c6 0b 42 | 13 c7 0b 42 13 c8 0b 42 |...B...B|...B...B|
|00000530| 13 c9 0b 42 13 c2 87 22 | 20 5b 62 6f 75 6e 64 70 |...B..."| [boundp|
|00000540| 20 68 65 78 6c 2d 6d 6f | 64 65 2d 6d 61 70 20 6e | hexl-mo|de-map n|
|00000550| 69 6c 20 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |il curre|nt-load-|
|00000560| 6c 69 73 74 20 68 65 78 | 6c 2d 6d 6f 64 65 2d 6f |list hex|l-mode-o|
|00000570| 6c 64 2d 6c 6f 63 61 6c | 2d 6d 61 70 20 68 65 78 |ld-local|-map hex|
|00000580| 6c 2d 6d 6f 64 65 2d 6f | 6c 64 2d 6d 6f 64 65 2d |l-mode-o|ld-mode-|
|00000590| 6e 61 6d 65 20 68 65 78 | 6c 2d 6d 6f 64 65 2d 6f |name hex|l-mode-o|
|000005a0| 6c 64 2d 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 68 65 |ld-major|-mode he|
|000005b0| 78 6c 2d 6d 6f 64 65 2d | 6f 6c 64 2d 77 72 69 74 |xl-mode-|old-writ|
|000005c0| 65 2d 63 6f 6e 74 65 6e | 74 73 2d 68 6f 6f 6b 73 |e-conten|ts-hooks|
|000005d0| 20 68 65 78 6c 2d 6d 6f | 64 65 2d 6f 6c 64 2d 72 | hexl-mo|de-old-r|
|000005e0| 65 71 75 69 72 65 2d 66 | 69 6e 61 6c 2d 6e 65 77 |equire-f|inal-new|
|000005f0| 6c 69 6e 65 20 68 65 78 | 6c 2d 6d 6f 64 65 2d 6f |line hex|l-mode-o|
|00000600| 6c 64 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 5d |ld-synta|x-table]|
|00000610| 20 32 29 0a 23 40 33 32 | 37 38 20 5c 3c 68 65 78 | 2).#@32|78 \<hex|
|00000620| 6c 2d 6d 6f 64 65 2d 6d | 61 70 3e 0a 41 20 6d 61 |l-mode-m|ap>.A ma|
|00000630| 6a 6f 72 20 6d 6f 64 65 | 20 66 6f 72 20 65 64 69 |jor mode| for edi|
|00000640| 74 69 6e 67 20 62 69 6e | 61 72 79 20 66 69 6c 65 |ting bin|ary file|
|00000650| 73 20 69 6e 20 68 65 78 | 20 64 75 6d 70 20 66 6f |s in hex| dump fo|
|00000660| 72 6d 61 74 2e 0a 0a 54 | 68 69 73 20 66 75 6e 63 |rmat...T|his func|
|00000670| 74 69 6f 6e 20 61 75 74 | 6f 6d 61 74 69 63 61 6c |tion aut|omatical|
|00000680| 6c 79 20 63 6f 6e 76 65 | 72 74 73 20 61 20 62 75 |ly conve|rts a bu|
|00000690| 66 66 65 72 20 69 6e 74 | 6f 20 74 68 65 20 68 65 |ffer int|o the he|
|000006a0| 78 6c 20 66 6f 72 6d 61 | 74 0a 75 73 69 6e 67 20 |xl forma|t.using |
|000006b0| 74 68 65 20 66 75 6e 63 | 74 69 6f 6e 20 60 68 65 |the func|tion `he|
|000006c0| 78 6c 69 66 79 2d 62 75 | 66 66 65 72 27 2e 0a 0a |xlify-bu|ffer'...|
|000006d0| 45 61 63 68 20 6c 69 6e | 65 20 69 6e 20 74 68 65 |Each lin|e in the|
|000006e0| 20 62 75 66 66 65 72 20 | 68 61 73 20 61 6e 20 22 | buffer |has an "|
|000006f0| 61 64 64 72 65 73 73 22 | 20 28 64 69 73 70 6c 61 |address"| (displa|
|00000700| 79 65 64 20 69 6e 20 68 | 65 78 61 64 65 63 69 6d |yed in h|exadecim|
|00000710| 61 6c 29 0a 72 65 70 72 | 65 73 65 6e 74 69 6e 67 |al).repr|esenting|
|00000720| 20 74 68 65 20 6f 66 66 | 73 65 74 20 69 6e 74 6f | the off|set into|
|00000730| 20 74 68 65 20 66 69 6c | 65 20 74 68 61 74 20 74 | the fil|e that t|
|00000740| 68 65 20 63 68 61 72 61 | 63 74 65 72 73 20 6f 6e |he chara|cters on|
|00000750| 20 74 68 69 73 20 6c 69 | 6e 65 0a 61 72 65 20 61 | this li|ne.are a|
|00000760| 74 20 61 6e 64 20 31 36 | 20 63 68 61 72 61 63 74 |t and 16| charact|
|00000770| 65 72 73 20 66 72 6f 6d | 20 74 68 65 20 66 69 6c |ers from| the fil|
|00000780| 65 20 28 64 69 73 70 6c | 61 79 65 64 20 61 73 20 |e (displ|ayed as |
|00000790| 68 65 78 61 64 65 63 69 | 6d 61 6c 0a 76 61 6c 75 |hexadeci|mal.valu|
|000007a0| 65 73 20 67 72 6f 75 70 | 65 64 20 65 76 65 72 79 |es group|ed every|
|000007b0| 20 31 36 20 62 69 74 73 | 29 20 61 6e 64 20 61 73 | 16 bits|) and as|
|000007c0| 20 74 68 65 69 72 20 41 | 53 43 49 49 20 76 61 6c | their A|SCII val|
|000007d0| 75 65 73 2e 0a 0a 49 66 | 20 61 6e 79 20 6f 66 20 |ues...If| any of |
|000007e0| 74 68 65 20 63 68 61 72 | 61 63 74 65 72 73 20 28 |the char|acters (|
|000007f0| 64 69 73 70 6c 61 79 65 | 64 20 61 73 20 41 53 43 |displaye|d as ASC|
|00000800| 49 49 20 63 68 61 72 61 | 63 74 65 72 73 29 20 61 |II chara|cters) a|
|00000810| 72 65 0a 75 6e 70 72 69 | 6e 74 61 62 6c 65 20 28 |re.unpri|ntable (|
|00000820| 63 6f 6e 74 72 6f 6c 20 | 6f 72 20 6d 65 74 61 20 |control |or meta |
|00000830| 63 68 61 72 61 63 74 65 | 72 73 29 20 74 68 65 79 |characte|rs) they|
|00000840| 20 77 69 6c 6c 20 62 65 | 20 72 65 70 6c 61 63 65 | will be| replace|
|00000850| 64 20 61 73 0a 70 65 72 | 69 6f 64 73 2e 0a 0a 49 |d as.per|iods...I|
|00000860| 66 20 60 68 65 78 6c 2d | 6d 6f 64 65 27 20 69 73 |f `hexl-|mode' is|
|00000870| 20 69 6e 76 6f 6b 65 64 | 20 77 69 74 68 20 61 6e | invoked| with an|
|00000880| 20 61 72 67 75 6d 65 6e | 74 20 74 68 65 20 62 75 | argumen|t the bu|
|00000890| 66 66 65 72 20 69 73 20 | 61 73 73 75 6d 65 64 20 |ffer is |assumed |
|000008a0| 74 6f 20 62 65 0a 69 6e | 20 68 65 78 6c 20 66 6f |to be.in| hexl fo|
|000008b0| 72 6d 61 74 2e 0a 0a 41 | 20 73 61 6d 70 6c 65 20 |rmat...A| sample |
|000008c0| 66 6f 72 6d 61 74 3a 0a | 0a 20 20 48 45 58 20 41 |format:.|. HEX A|
|000008d0| 44 44 52 3a 20 30 30 30 | 31 20 30 32 30 33 20 30 |DDR: 000|1 0203 0|
|000008e0| 34 30 35 20 30 36 30 37 | 20 30 38 30 39 20 30 61 |405 0607| 0809 0a|
|000008f0| 30 62 20 30 63 30 64 20 | 30 65 30 66 20 20 20 20 |0b 0c0d |0e0f |
|00000900| 20 41 53 43 49 49 2d 54 | 45 58 54 0a 20 20 2d 2d | ASCII-T|EXT. --|
|00000910| 2d 2d 2d 2d 2d 2d 20 20 | 2d 2d 2d 2d 20 2d 2d 2d |------ |---- ---|
|00000920| 2d 20 2d 2d 2d 2d 20 2d | 2d 2d 2d 20 2d 2d 2d 2d |- ---- -|--- ----|
|00000930| 20 2d 2d 2d 2d 20 2d 2d | 2d 2d 20 2d 2d 2d 2d 20 | ---- --|-- ---- |
|00000940| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00000950| 2d 0a 20 20 30 30 30 30 | 30 30 30 30 3a 20 35 34 |-. 0000|0000: 54|
|00000960| 36 38 20 36 39 37 33 20 | 32 30 36 39 20 37 33 32 |68 6973 |2069 732|
|00000970| 30 20 36 38 36 35 20 37 | 38 36 63 20 32 64 36 64 |0 6865 7|86c 2d6d|
|00000980| 20 36 66 36 34 20 20 54 | 68 69 73 20 69 73 20 68 | 6f64 T|his is h|
|00000990| 65 78 6c 2d 6d 6f 64 0a | 20 20 30 30 30 30 30 30 |exl-mod.| 000000|
|000009a0| 31 30 3a 20 36 35 32 65 | 20 32 30 32 30 20 34 35 |10: 652e| 2020 45|
|000009b0| 36 31 20 36 33 36 38 20 | 32 30 36 63 20 36 39 36 |61 6368 |206c 696|
|000009c0| 65 20 36 35 32 30 20 37 | 32 36 35 20 20 65 2e 20 |e 6520 7|265 e. |
|000009d0| 20 45 61 63 68 20 6c 69 | 6e 65 20 72 65 0a 20 20 | Each li|ne re. |
|000009e0| 30 30 30 30 30 30 32 30 | 3a 20 37 30 37 32 20 36 |00000020|: 7072 6|
|000009f0| 35 37 33 20 36 35 36 65 | 20 37 34 37 33 20 32 30 |573 656e| 7473 20|
|00000a00| 33 31 20 33 36 32 30 20 | 36 32 37 39 20 37 34 36 |31 3620 |6279 746|
|00000a10| 35 20 20 70 72 65 73 65 | 6e 74 73 20 31 36 20 62 |5 prese|nts 16 b|
|00000a20| 79 74 65 0a 20 20 30 30 | 30 30 30 30 33 30 3a 20 |yte. 00|000030: |
|00000a30| 37 33 32 30 20 36 31 37 | 33 20 32 30 36 38 20 36 |7320 617|3 2068 6|
|00000a40| 35 37 38 20 36 31 36 34 | 20 36 35 36 33 20 36 39 |578 6164| 6563 69|
|00000a50| 36 64 20 36 31 36 63 20 | 20 73 20 61 73 20 68 65 |6d 616c | s as he|
|00000a60| 78 61 64 65 63 69 6d 61 | 6c 0a 20 20 30 30 30 30 |xadecima|l. 0000|
|00000a70| 30 30 34 30 3a 20 32 30 | 34 31 20 35 33 34 33 20 |0040: 20|41 5343 |
|00000a80| 34 39 34 39 20 30 61 36 | 31 20 36 65 36 34 20 32 |4949 0a6|1 6e64 2|
|00000a90| 30 37 30 20 37 32 36 39 | 20 36 65 37 34 20 20 20 |070 7269| 6e74 |
|00000aa0| 41 53 43 49 49 2e 61 6e | 64 20 70 72 69 6e 74 0a |ASCII.an|d print.|
|00000ab0| 20 20 30 30 30 30 30 30 | 35 30 3a 20 36 31 36 32 | 000000|50: 6162|
|00000ac0| 20 36 63 36 35 20 32 30 | 34 31 20 35 33 34 33 20 | 6c65 20|41 5343 |
|00000ad0| 34 39 34 39 20 32 30 36 | 33 20 36 38 36 31 20 37 |4949 206|3 6861 7|
|00000ae0| 32 36 31 20 20 61 62 6c | 65 20 41 53 43 49 49 20 |261 abl|e ASCII |
|00000af0| 63 68 61 72 61 0a 20 20 | 30 30 30 30 30 30 36 30 |chara. |00000060|
|00000b00| 3a 20 36 33 37 34 20 36 | 35 37 32 20 37 33 32 65 |: 6374 6|572 732e|
|00000b10| 20 32 30 32 30 20 34 31 | 36 65 20 37 39 32 30 20 | 2020 41|6e 7920 |
|00000b20| 36 33 36 66 20 36 65 37 | 34 20 20 63 74 65 72 73 |636f 6e7|4 cters|
|00000b30| 2e 20 20 41 6e 79 20 63 | 6f 6e 74 0a 20 20 30 30 |. Any c|ont. 00|
|00000b40| 30 30 30 30 37 30 3a 20 | 37 32 36 66 20 36 63 32 |000070: |726f 6c2|
|00000b50| 30 20 36 66 37 32 20 32 | 30 36 65 20 36 66 36 65 |0 6f72 2|06e 6f6e|
|00000b60| 20 32 64 34 31 20 35 33 | 34 33 20 34 39 34 39 20 | 2d41 53|43 4949 |
|00000b70| 20 72 6f 6c 20 6f 72 20 | 6e 6f 6e 2d 41 53 43 49 | rol or |non-ASCI|
|00000b80| 49 0a 20 20 30 30 30 30 | 30 30 38 30 3a 20 32 30 |I. 0000|0080: 20|
|00000b90| 36 33 20 36 38 36 31 20 | 37 32 36 31 20 36 33 37 |63 6861 |7261 637|
|00000ba0| 34 20 36 35 37 32 20 37 | 33 30 61 20 36 31 37 32 |4 6572 7|30a 6172|
|00000bb0| 20 36 35 32 30 20 20 20 | 63 68 61 72 61 63 74 65 | 6520 |characte|
|00000bc0| 72 73 2e 61 72 65 20 0a | 20 20 30 30 30 30 30 30 |rs.are .| 000000|
|00000bd0| 39 30 3a 20 36 34 36 39 | 20 37 33 37 30 20 36 63 |90: 6469| 7370 6c|
|00000be0| 36 31 20 37 39 36 35 20 | 36 34 32 30 20 36 31 37 |61 7965 |6420 617|
|00000bf0| 33 20 32 30 37 30 20 36 | 35 37 32 20 20 64 69 73 |3 2070 6|572 dis|
|00000c00| 70 6c 61 79 65 64 20 61 | 73 20 70 65 72 0a 20 20 |played a|s per. |
|00000c10| 30 30 30 30 30 30 61 30 | 3a 20 36 39 36 66 20 36 |000000a0|: 696f 6|
|00000c20| 34 37 33 20 32 30 36 39 | 20 36 65 32 30 20 37 34 |473 2069| 6e20 74|
|00000c30| 36 38 20 36 35 32 30 20 | 37 30 37 32 20 36 39 36 |68 6520 |7072 696|
|00000c40| 65 20 20 69 6f 64 73 20 | 69 6e 20 74 68 65 20 70 |e iods |in the p|
|00000c50| 72 69 6e 0a 20 20 30 30 | 30 30 30 30 62 30 3a 20 |rin. 00|0000b0: |
|00000c60| 37 34 36 31 20 36 32 36 | 63 20 36 35 32 30 20 36 |7461 626|c 6520 6|
|00000c70| 33 36 38 20 36 31 37 32 | 20 36 31 36 33 20 37 34 |368 6172| 6163 74|
|00000c80| 36 35 20 37 32 32 30 20 | 20 74 61 62 6c 65 20 63 |65 7220 | table c|
|00000c90| 68 61 72 61 63 74 65 72 | 20 0a 20 20 30 30 30 30 |haracter| . 0000|
|00000ca0| 30 30 63 30 3a 20 37 32 | 36 35 20 36 37 36 39 20 |00c0: 72|65 6769 |
|00000cb0| 36 66 36 65 20 32 65 30 | 61 20 20 20 20 20 20 20 |6f6e 2e0|a |
|00000cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 72 | | r|
|00000cd0| 65 67 69 6f 6e 2e 2e 0a | 0a 4d 6f 76 65 6d 65 6e |egion...|.Movemen|
|00000ce0| 74 20 69 73 20 61 73 20 | 73 69 6d 70 6c 65 20 61 |t is as |simple a|
|00000cf0| 73 20 6d 6f 76 65 6d 65 | 6e 74 20 69 6e 20 61 20 |s moveme|nt in a |
|00000d00| 6e 6f 72 6d 61 6c 20 65 | 6d 61 63 73 20 74 65 78 |normal e|macs tex|
|00000d10| 74 20 62 75 66 66 65 72 | 2e 20 20 4d 6f 73 74 0a |t buffer|. Most.|
|00000d20| 63 75 72 73 6f 72 20 6d | 6f 76 65 6d 65 6e 74 20 |cursor m|ovement |
|00000d30| 62 69 6e 64 69 6e 67 73 | 20 61 72 65 20 74 68 65 |bindings| are the|
|00000d40| 20 73 61 6d 65 20 28 69 | 65 2e 20 55 73 65 20 5c | same (i|e. Use \|
|00000d50| 5b 68 65 78 6c 2d 62 61 | 63 6b 77 61 72 64 2d 63 |[hexl-ba|ckward-c|
|00000d60| 68 61 72 5d 2c 20 5c 5b | 68 65 78 6c 2d 66 6f 72 |har], \[|hexl-for|
|00000d70| 77 61 72 64 2d 63 68 61 | 72 5d 2c 20 5c 5b 68 65 |ward-cha|r], \[he|
|00000d80| 78 6c 2d 6e 65 78 74 2d | 6c 69 6e 65 5d 2c 20 61 |xl-next-|line], a|
|00000d90| 6e 64 20 5c 5b 68 65 78 | 6c 2d 70 72 65 76 69 6f |nd \[hex|l-previo|
|00000da0| 75 73 2d 6c 69 6e 65 5d | 0a 74 6f 20 6d 6f 76 65 |us-line]|.to move|
|00000db0| 20 74 68 65 20 63 75 72 | 73 6f 72 20 6c 65 66 74 | the cur|sor left|
|00000dc0| 2c 20 72 69 67 68 74 2c | 20 64 6f 77 6e 2c 20 61 |, right,| down, a|
|00000dd0| 6e 64 20 75 70 29 2e 0a | 0a 41 64 76 61 6e 63 65 |nd up)..|.Advance|
|00000de0| 64 20 63 75 72 73 6f 72 | 20 6d 6f 76 65 6d 65 6e |d cursor| movemen|
|00000df0| 74 20 63 6f 6d 6d 61 6e | 64 73 20 28 61 6c 61 20 |t comman|ds (ala |
|00000e00| 5c 5b 68 65 78 6c 2d 62 | 65 67 69 6e 6e 69 6e 67 |\[hexl-b|eginning|
|00000e10| 2d 6f 66 2d 6c 69 6e 65 | 5d 2c 20 5c 5b 68 65 78 |-of-line|], \[hex|
|00000e20| 6c 2d 65 6e 64 2d 6f 66 | 2d 6c 69 6e 65 5d 2c 20 |l-end-of|-line], |
|00000e30| 5c 5b 68 65 78 6c 2d 62 | 65 67 69 6e 6e 69 6e 67 |\[hexl-b|eginning|
|00000e40| 2d 6f 66 2d 62 75 66 66 | 65 72 5d 2c 20 61 6e 64 |-of-buff|er], and|
|00000e50| 20 5c 5b 68 65 78 6c 2d | 65 6e 64 2d 6f 66 2d 62 | \[hexl-|end-of-b|
|00000e60| 75 66 66 65 72 5d 29 20 | 61 72 65 0a 61 6c 73 6f |uffer]) |are.also|
|00000e70| 20 73 75 70 70 6f 72 74 | 65 64 2e 0a 0a 54 68 65 | support|ed...The|
|00000e80| 72 65 20 61 72 65 20 73 | 65 76 65 72 61 6c 20 77 |re are s|everal w|
|00000e90| 61 79 73 20 74 6f 20 63 | 68 61 6e 67 65 20 74 65 |ays to c|hange te|
|00000ea0| 78 74 20 69 6e 20 68 65 | 78 6c 20 6d 6f 64 65 3a |xt in he|xl mode:|
|00000eb0| 0a 0a 41 53 43 49 49 20 | 63 68 61 72 61 63 74 65 |..ASCII |characte|
|00000ec0| 72 73 20 28 63 68 61 72 | 61 63 74 65 72 20 62 65 |rs (char|acter be|
|00000ed0| 74 77 65 65 6e 20 73 70 | 61 63 65 20 28 30 78 32 |tween sp|ace (0x2|
|00000ee0| 30 29 20 61 6e 64 20 74 | 69 6c 64 65 20 28 30 78 |0) and t|ilde (0x|
|00000ef0| 37 45 29 29 20 61 72 65 | 0a 62 6f 75 6e 64 20 74 |7E)) are|.bound t|
|00000f00| 6f 20 73 65 6c 66 2d 69 | 6e 73 65 72 74 20 73 6f |o self-i|nsert so|
|00000f10| 20 79 6f 75 20 63 61 6e | 20 73 69 6d 70 6c 79 20 | you can| simply |
|00000f20| 74 79 70 65 20 74 68 65 | 20 63 68 61 72 61 63 74 |type the| charact|
|00000f30| 65 72 20 61 6e 64 20 69 | 74 20 77 69 6c 6c 0a 69 |er and i|t will.i|
|00000f40| 6e 73 65 72 74 20 69 74 | 73 65 6c 66 20 28 61 63 |nsert it|self (ac|
|00000f50| 74 75 61 6c 6c 79 20 6f | 76 65 72 73 74 72 69 6b |tually o|verstrik|
|00000f60| 65 29 20 69 6e 74 6f 20 | 74 68 65 20 62 75 66 66 |e) into |the buff|
|00000f70| 65 72 2e 0a 0a 5c 5b 68 | 65 78 6c 2d 71 75 6f 74 |er...\[h|exl-quot|
|00000f80| 65 64 2d 69 6e 73 65 72 | 74 5d 20 66 6f 6c 6c 6f |ed-inser|t] follo|
|00000f90| 77 65 64 20 62 79 20 61 | 6e 6f 74 68 65 72 20 6b |wed by a|nother k|
|00000fa0| 65 79 73 74 72 6f 6b 65 | 20 61 6c 6c 6f 77 73 20 |eystroke| allows |
|00000fb0| 79 6f 75 20 74 6f 20 69 | 6e 73 65 72 74 20 74 68 |you to i|nsert th|
|00000fc0| 65 20 6b 65 79 20 65 76 | 65 6e 20 69 66 0a 69 74 |e key ev|en if.it|
|00000fd0| 20 69 73 6e 27 74 20 62 | 6f 75 6e 64 20 74 6f 20 | isn't b|ound to |
|00000fe0| 73 65 6c 66 2d 69 6e 73 | 65 72 74 2e 20 20 41 6e |self-ins|ert. An|
|00000ff0| 20 6f 63 74 61 6c 20 6e | 75 6d 62 65 72 20 63 61 | octal n|umber ca|
|00001000| 6e 20 62 65 20 73 75 70 | 70 6c 69 65 64 20 69 6e |n be sup|plied in|
|00001010| 20 70 6c 61 63 65 0a 6f | 66 20 61 6e 6f 74 68 65 | place.o|f anothe|
|00001020| 72 20 6b 65 79 20 74 6f | 20 69 6e 73 65 72 74 20 |r key to| insert |
|00001030| 74 68 65 20 6f 63 74 61 | 6c 20 6e 75 6d 62 65 72 |the octa|l number|
|00001040| 27 73 20 41 53 43 49 49 | 20 72 65 70 72 65 73 65 |'s ASCII| represe|
|00001050| 6e 74 61 74 69 6f 6e 2e | 0a 0a 5c 5b 68 65 78 6c |ntation.|..\[hexl|
|00001060| 2d 69 6e 73 65 72 74 2d | 68 65 78 2d 63 68 61 72 |-insert-|hex-char|
|00001070| 5d 20 77 69 6c 6c 20 69 | 6e 73 65 72 74 20 61 20 |] will i|nsert a |
|00001080| 67 69 76 65 6e 20 68 65 | 78 61 64 65 63 69 6d 61 |given he|xadecima|
|00001090| 6c 20 76 61 6c 75 65 20 | 28 69 66 20 69 74 20 69 |l value |(if it i|
|000010a0| 73 20 62 65 74 77 65 65 | 6e 20 30 20 61 6e 64 20 |s betwee|n 0 and |
|000010b0| 30 78 46 46 29 0a 69 6e | 74 6f 20 74 68 65 20 62 |0xFF).in|to the b|
|000010c0| 75 66 66 65 72 20 61 74 | 20 74 68 65 20 63 75 72 |uffer at| the cur|
|000010d0| 72 65 6e 74 20 70 6f 69 | 6e 74 2e 0a 0a 5c 5b 68 |rent poi|nt...\[h|
|000010e0| 65 78 6c 2d 69 6e 73 65 | 72 74 2d 6f 63 74 61 6c |exl-inse|rt-octal|
|000010f0| 2d 63 68 61 72 5d 20 77 | 69 6c 6c 20 69 6e 73 65 |-char] w|ill inse|
|00001100| 72 74 20 61 20 67 69 76 | 65 6e 20 6f 63 74 61 6c |rt a giv|en octal|
|00001110| 20 76 61 6c 75 65 20 28 | 69 66 20 69 74 20 69 73 | value (|if it is|
|00001120| 20 62 65 74 77 65 65 6e | 20 30 20 61 6e 64 20 30 | between| 0 and 0|
|00001130| 33 37 37 29 0a 69 6e 74 | 6f 20 74 68 65 20 62 75 |377).int|o the bu|
|00001140| 66 66 65 72 20 61 74 20 | 74 68 65 20 63 75 72 72 |ffer at |the curr|
|00001150| 65 6e 74 20 70 6f 69 6e | 74 2e 0a 0a 5c 5b 68 65 |ent poin|t...\[he|
|00001160| 78 6c 2d 69 6e 73 65 72 | 74 2d 64 65 63 69 6d 61 |xl-inser|t-decima|
|00001170| 6c 2d 63 68 61 72 5d 20 | 77 69 6c 6c 20 69 6e 73 |l-char] |will ins|
|00001180| 65 72 74 20 61 20 67 69 | 76 65 6e 20 64 65 63 69 |ert a gi|ven deci|
|00001190| 6d 61 6c 20 76 61 6c 75 | 65 20 28 69 66 20 69 74 |mal valu|e (if it|
|000011a0| 20 69 73 20 62 65 74 77 | 65 65 6e 20 30 20 61 6e | is betw|een 0 an|
|000011b0| 64 20 32 35 35 29 0a 69 | 6e 74 6f 20 74 68 65 20 |d 255).i|nto the |
|000011c0| 62 75 66 66 65 72 20 61 | 74 20 74 68 65 20 63 75 |buffer a|t the cu|
|000011d0| 72 72 65 6e 74 20 70 6f | 69 6e 74 2e 0a 0a 5c 5b |rrent po|int...\[|
|000011e0| 68 65 78 6c 2d 6d 6f 64 | 65 2d 65 78 69 74 5d 20 |hexl-mod|e-exit] |
|000011f0| 77 69 6c 6c 20 65 78 69 | 74 20 68 65 78 6c 2d 6d |will exi|t hexl-m|
|00001200| 6f 64 65 2e 0a 0a 4e 6f | 74 65 3a 20 73 61 76 69 |ode...No|te: savi|
|00001210| 6e 67 20 74 68 65 20 66 | 69 6c 65 20 77 69 74 68 |ng the f|ile with|
|00001220| 20 61 6e 79 20 6f 66 20 | 74 68 65 20 75 73 75 61 | any of |the usua|
|00001230| 6c 20 45 6d 61 63 73 20 | 63 6f 6d 6d 61 6e 64 73 |l Emacs |commands|
|00001240| 0a 77 69 6c 6c 20 61 63 | 74 75 61 6c 6c 79 20 63 |.will ac|tually c|
|00001250| 6f 6e 76 65 72 74 20 69 | 74 20 62 61 63 6b 20 74 |onvert i|t back t|
|00001260| 6f 20 62 69 6e 61 72 79 | 20 66 6f 72 6d 61 74 20 |o binary| format |
|00001270| 77 68 69 6c 65 20 73 61 | 76 69 6e 67 2e 0a 0a 59 |while sa|ving...Y|
|00001280| 6f 75 20 63 61 6e 20 75 | 73 65 20 5c 5b 68 65 78 |ou can u|se \[hex|
|00001290| 6c 2d 66 69 6e 64 2d 66 | 69 6c 65 5d 20 74 6f 20 |l-find-f|ile] to |
|000012a0| 76 69 73 69 74 20 61 20 | 66 69 6c 65 20 69 6e 20 |visit a |file in |
|000012b0| 68 65 78 6c 2d 6d 6f 64 | 65 2e 0a 0a 5c 5b 64 65 |hexl-mod|e...\[de|
|000012c0| 73 63 72 69 62 65 2d 62 | 69 6e 64 69 6e 67 73 5d |scribe-b|indings]|
|000012d0| 20 66 6f 72 20 61 64 76 | 61 6e 63 65 64 20 63 6f | for adv|anced co|
|000012e0| 6d 6d 61 6e 64 73 2e 1f | 0a 28 64 65 66 61 6c 69 |mmands..|.(defali|
|000012f0| 61 73 20 27 68 65 78 6c | 2d 6d 6f 64 65 20 23 5b |as 'hexl|-mode #[|
|00001300| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|00001310| 22 08 c1 3d 83 0d 00 c2 | c3 21 88 82 c1 00 c4 20 |"..=....|.!..... |
|00001320| c5 60 53 c6 1e 07 1e 08 | 1e 09 1e 5c 6e 6d 83 28 |.`S.....|...\nm.(|
|00001330| 00 6f 84 28 00 0e 08 53 | 16 08 0e 0b cc 3d 84 42 |.o.(...S|.....=.B|
|00001340| 00 0e 0b 83 42 00 cd 20 | 53 ce a5 cf 5f d0 5c 5c |....B.. |S..._.\\|
|00001350| 16 07 82 4f 00 cd 20 53 | 16 07 d1 20 88 d2 0e 5c |...O.. S|... ...\|
|00001360| 6e 21 88 d3 d4 21 88 0e | 07 16 14 d5 0e 08 21 88 |n!...!..|......!.|
|00001370| 2c d3 d6 21 88 d7 20 16 | 16 d8 0e 19 21 88 d3 da |,..!.. .|....!...|
|00001380| 21 88 0e 1b 16 1a dc 16 | 1b d3 dd 21 88 08 16 1d |!.......|...!....|
|00001390| c1 10 d3 de 21 88 df 20 | 16 1e e0 e1 20 21 88 d3 |....!.. |.... !..|
|000013a0| e2 21 88 0e 23 16 5c 22 | d3 e3 21 88 e4 e3 e5 5c |.!..#.\"|..!....\|
|000013b0| 22 88 d3 e6 21 88 0e 27 | 16 26 d3 e7 21 88 c6 16 |"...!..'|.&..!...|
|000013c0| 27 e8 e9 21 88 e4 e9 ea | c6 c5 24 88 e8 eb 21 88 |'..!....|..$...!.|
|000013d0| e4 eb ec c6 c5 24 88 ed | ee 21 87 22 20 5b 6d 61 |.....$..|.!." [ma|
|000013e0| 6a 6f 72 2d 6d 6f 64 65 | 20 68 65 78 6c 2d 6d 6f |jor-mode| hexl-mo|
|000013f0| 64 65 20 65 72 72 6f 72 | 20 22 59 6f 75 20 61 72 |de error| "You ar|
|00001400| 65 20 61 6c 72 65 61 64 | 79 20 69 6e 20 68 65 78 |e alread|y in hex|
|00001410| 6c 20 6d 6f 64 65 22 20 | 62 75 66 66 65 72 2d 6d |l mode" |buffer-m|
|00001420| 6f 64 69 66 69 65 64 2d | 70 20 74 20 6e 69 6c 20 |odified-|p t nil |
|00001430| 6d 61 78 2d 61 64 64 72 | 65 73 73 20 6f 72 69 67 |max-addr|ess orig|
|00001440| 69 6e 61 6c 2d 70 6f 69 | 6e 74 20 69 6e 68 69 62 |inal-poi|nt inhib|
|00001450| 69 74 2d 72 65 61 64 2d | 6f 6e 6c 79 20 6d 6f 64 |it-read-|only mod|
|00001460| 69 66 69 65 64 20 61 72 | 67 20 31 20 62 75 66 66 |ified ar|g 1 buff|
|00001470| 65 72 2d 73 69 7a 65 20 | 36 38 20 31 36 20 31 35 |er-size |68 16 15|
|00001480| 20 68 65 78 6c 69 66 79 | 2d 62 75 66 66 65 72 20 | hexlify|-buffer |
|00001490| 73 65 74 2d 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |set-buff|er-modif|
|000014a0| 69 65 64 2d 70 20 6d 61 | 6b 65 2d 6c 6f 63 61 6c |ied-p ma|ke-local|
|000014b0| 2d 76 61 72 69 61 62 6c | 65 20 68 65 78 6c 2d 6d |-variabl|e hexl-m|
|000014c0| 61 78 2d 61 64 64 72 65 | 73 73 20 68 65 78 6c 2d |ax-addre|ss hexl-|
|000014d0| 67 6f 74 6f 2d 61 64 64 | 72 65 73 73 20 68 65 78 |goto-add|ress hex|
|000014e0| 6c 2d 6d 6f 64 65 2d 6f | 6c 64 2d 6c 6f 63 61 6c |l-mode-o|ld-local|
|000014f0| 2d 6d 61 70 20 63 75 72 | 72 65 6e 74 2d 6c 6f 63 |-map cur|rent-loc|
|00001500| 61 6c 2d 6d 61 70 20 75 | 73 65 2d 6c 6f 63 61 6c |al-map u|se-local|
|00001510| 2d 6d 61 70 20 68 65 78 | 6c 2d 6d 6f 64 65 2d 6d |-map hex|l-mode-m|
|00001520| 61 70 20 68 65 78 6c 2d | 6d 6f 64 65 2d 6f 6c 64 |ap hexl-|mode-old|
|00001530| 2d 6d 6f 64 65 2d 6e 61 | 6d 65 20 6d 6f 64 65 2d |-mode-na|me mode-|
|00001540| 6e 61 6d 65 20 22 48 65 | 78 6c 22 20 68 65 78 6c |name "He|xl" hexl|
|00001550| 2d 6d 6f 64 65 2d 6f 6c | 64 2d 6d 61 6a 6f 72 2d |-mode-ol|d-major-|
|00001560| 6d 6f 64 65 20 68 65 78 | 6c 2d 6d 6f 64 65 2d 6f |mode hex|l-mode-o|
|00001570| 6c 64 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |ld-synta|x-table |
|00001580| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 73 65 74 |syntax-t|able set|
|00001590| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 73 74 |-syntax-|table st|
|000015a0| 61 6e 64 61 72 64 2d 73 | 79 6e 74 61 78 2d 74 61 |andard-s|yntax-ta|
|000015b0| 62 6c 65 20 68 65 78 6c | 2d 6d 6f 64 65 2d 6f 6c |ble hexl|-mode-ol|
|000015c0| 64 2d 77 72 69 74 65 2d | 63 6f 6e 74 65 6e 74 73 |d-write-|contents|
|000015d0| 2d 68 6f 6f 6b 73 20 77 | 72 69 74 65 2d 63 6f 6e |-hooks w|rite-con|
|000015e0| 74 65 6e 74 73 2d 68 6f | 6f 6b 73 20 61 64 64 2d |tents-ho|oks add-|
|000015f0| 68 6f 6f 6b 20 68 65 78 | 6c 2d 73 61 76 65 2d 62 |hook hex|l-save-b|
|00001600| 75 66 66 65 72 20 68 65 | 78 6c 2d 6d 6f 64 65 2d |uffer he|xl-mode-|
|00001610| 6f 6c 64 2d 72 65 71 75 | 69 72 65 2d 66 69 6e 61 |old-requ|ire-fina|
|00001620| 6c 2d 6e 65 77 6c 69 6e | 65 20 72 65 71 75 69 72 |l-newlin|e requir|
|00001630| 65 2d 66 69 6e 61 6c 2d | 6e 65 77 6c 69 6e 65 20 |e-final-|newline |
|00001640| 6d 61 6b 65 2d 6c 6f 63 | 61 6c 2d 68 6f 6f 6b 20 |make-loc|al-hook |
|00001650| 61 66 74 65 72 2d 72 65 | 76 65 72 74 2d 68 6f 6f |after-re|vert-hoo|
|00001660| 6b 20 68 65 78 6c 2d 61 | 66 74 65 72 2d 72 65 76 |k hexl-a|fter-rev|
|00001670| 65 72 74 2d 68 6f 6f 6b | 20 63 68 61 6e 67 65 2d |ert-hook| change-|
|00001680| 6d 61 6a 6f 72 2d 6d 6f | 64 65 2d 68 6f 6f 6b 20 |major-mo|de-hook |
|00001690| 68 65 78 6c 2d 6d 61 79 | 62 65 2d 64 65 68 65 78 |hexl-may|be-dehex|
|000016a0| 6c 69 66 79 2d 62 75 66 | 66 65 72 20 72 75 6e 2d |lify-buf|fer run-|
|000016b0| 68 6f 6f 6b 73 20 68 65 | 78 6c 2d 6d 6f 64 65 2d |hooks he|xl-mode-|
|000016c0| 68 6f 6f 6b 5d 20 35 20 | 28 23 24 20 2e 20 31 35 |hook] 5 |(#$ . 15|
|000016d0| 36 33 29 20 22 70 22 5d | 29 0a 28 64 65 66 61 6c |63) "p"]|).(defal|
|000016e0| 69 61 73 20 27 68 65 78 | 6c 2d 61 66 74 65 72 2d |ias 'hex|l-after-|
|000016f0| 72 65 76 65 72 74 2d 68 | 6f 6f 6b 20 23 5b 6e 69 |revert-h|ook #[ni|
|00001700| 6c 20 22 c0 20 88 c1 c2 | 21 87 22 20 5b 68 65 78 |l ". ...|!." [hex|
|00001710| 6c 69 66 79 2d 62 75 66 | 66 65 72 20 73 65 74 2d |lify-buf|fer set-|
|00001720| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|00001730| 70 20 6e 69 6c 5d 20 32 | 5d 29 0a 28 62 79 74 65 |p nil] 2|]).(byte|
|00001740| 2d 63 6f 64 65 20 22 c0 | c1 21 84 08 00 c2 11 c1 |-code ".|.!......|
|00001750| 0b 42 13 c2 87 22 20 5b | 62 6f 75 6e 64 70 20 68 |.B..." [|boundp h|
|00001760| 65 78 6c 2d 69 6e 2d 73 | 61 76 65 2d 62 75 66 66 |exl-in-s|ave-buff|
|00001770| 65 72 20 6e 69 6c 20 63 | 75 72 72 65 6e 74 2d 6c |er nil c|urrent-l|
|00001780| 6f 61 64 2d 6c 69 73 74 | 5d 20 32 29 0a 23 40 36 |oad-list|] 2).#@6|
|00001790| 36 20 53 61 76 65 20 61 | 20 68 65 78 6c 20 66 6f |6 Save a| hexl fo|
|000017a0| 72 6d 61 74 20 62 75 66 | 66 65 72 20 61 73 20 62 |rmat buf|fer as b|
|000017b0| 69 6e 61 72 79 20 69 6e | 20 76 69 73 69 74 65 64 |inary in| visited|
|000017c0| 20 66 69 6c 65 20 69 66 | 20 6d 6f 64 69 66 69 65 | file if| modifie|
|000017d0| 64 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 68 |d...(def|alias 'h|
|000017e0| 65 78 6c 2d 73 61 76 65 | 2d 62 75 66 66 65 72 20 |exl-save|-buffer |
|000017f0| 23 5b 6e 69 6c 20 22 08 | 3f 85 63 00 c1 c2 20 83 |#[nil ".|?.c... .|
|00001800| 5b 00 8a c3 c4 21 c5 20 | c6 20 65 64 c7 1e 08 1e |[....!. |. ed....|
|00001810| 09 1e 5c 6e 1e 0b 1e 5c | 66 89 1e 0d 71 88 ce 0e |..\n...\|f...q...|
|00001820| 5c 66 0e 5c 6e 0e 09 23 | 88 0e 5c 66 71 88 cf 20 |\f.\n..#|..\fq.. |
|00001830| 88 d0 89 1e 11 18 d2 20 | 88 2a c2 20 16 08 65 64 |....... |.*. ..ed|
|00001840| 7c 88 ce 0e 0d 0e 5c 6e | 0e 09 23 88 d3 0e 0d 21 ||.....\n|..#....!|
|00001850| 88 0e 08 2e 07 82 60 00 | d4 d5 21 88 c7 21 88 d0 |......`.|..!..!..|
|00001860| 87 22 20 5b 68 65 78 6c | 2d 69 6e 2d 73 61 76 65 |." [hexl|-in-save|
|00001870| 2d 62 75 66 66 65 72 20 | 73 65 74 2d 62 75 66 66 |-buffer |set-buff|
|00001880| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 62 75 |er-modif|ied-p bu|
|00001890| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|000018a0| 67 65 6e 65 72 61 74 65 | 2d 6e 65 77 2d 62 75 66 |generate|-new-buf|
|000018b0| 66 65 72 20 22 20 68 65 | 78 6c 22 20 62 75 66 66 |fer " he|xl" buff|
|000018c0| 65 72 2d 6e 61 6d 65 20 | 62 75 66 66 65 72 2d 66 |er-name |buffer-f|
|000018d0| 69 6c 65 2d 6e 61 6d 65 | 20 6e 69 6c 20 6d 6f 64 |ile-name| nil mod|
|000018e0| 69 66 69 65 64 20 65 6e | 64 20 73 74 61 72 74 20 |ified en|d start |
|000018f0| 66 69 6c 65 2d 6e 61 6d | 65 20 6e 61 6d 65 20 62 |file-nam|e name b|
|00001900| 75 66 20 69 6e 73 65 72 | 74 2d 62 75 66 66 65 72 |uf inser|t-buffer|
|00001910| 2d 73 75 62 73 74 72 69 | 6e 67 20 64 65 68 65 78 |-substri|ng dehex|
|00001920| 6c 69 66 79 2d 62 75 66 | 66 65 72 20 74 20 62 75 |lify-buf|fer t bu|
|00001930| 66 66 65 72 2d 66 69 6c | 65 2d 74 79 70 65 20 73 |ffer-fil|e-type s|
|00001940| 61 76 65 2d 62 75 66 66 | 65 72 20 6b 69 6c 6c 2d |ave-buff|er kill-|
|00001950| 62 75 66 66 65 72 20 6d | 65 73 73 61 67 65 20 22 |buffer m|essage "|
|00001960| 28 4e 6f 20 63 68 61 6e | 67 65 73 20 6e 65 65 64 |(No chan|ges need|
|00001970| 20 74 6f 20 62 65 20 73 | 61 76 65 64 29 22 5d 20 | to be s|aved)"] |
|00001980| 38 20 28 23 24 20 2e 20 | 36 30 33 34 29 20 6e 69 |8 (#$ . |6034) ni|
|00001990| 6c 5d 29 0a 23 40 31 30 | 36 20 45 64 69 74 20 66 |l]).#@10|6 Edit f|
|000019a0| 69 6c 65 20 46 49 4c 45 | 4e 41 4d 45 20 69 6e 20 |ile FILE|NAME in |
|000019b0| 68 65 78 6c 2d 6d 6f 64 | 65 2e 0a 53 77 69 74 63 |hexl-mod|e..Switc|
|000019c0| 68 20 74 6f 20 61 20 62 | 75 66 66 65 72 20 76 69 |h to a b|uffer vi|
|000019d0| 73 69 74 69 6e 67 20 66 | 69 6c 65 20 46 49 4c 45 |siting f|ile FILE|
|000019e0| 4e 41 4d 45 2c 20 63 72 | 65 61 74 69 6e 67 20 6f |NAME, cr|eating o|
|000019f0| 6e 65 20 69 6e 20 6e 6f | 6e 65 20 65 78 69 73 74 |ne in no|ne exist|
|00001a00| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 68 |s...(def|alias 'h|
|00001a10| 65 78 6c 2d 66 69 6e 64 | 2d 66 69 6c 65 20 23 5b |exl-find|-file #[|
|00001a20| 28 66 69 6c 65 6e 61 6d | 65 29 20 22 08 c1 3d 84 |(filenam|e) "..=.|
|00001a30| 5c 66 00 08 c2 3d 83 13 | 00 c3 5c 66 21 88 82 17 |\f...=..|..\f!...|
|00001a40| 00 c5 5c 66 21 88 0e 06 | c7 3d 3f 85 21 00 c7 20 |..\f!...|.=?.!.. |
|00001a50| 87 22 20 5b 73 79 73 74 | 65 6d 2d 74 79 70 65 20 |." [syst|em-type |
|00001a60| 6d 73 2d 64 6f 73 20 77 | 69 6e 64 6f 77 73 2d 6e |ms-dos w|indows-n|
|00001a70| 74 20 66 69 6e 64 2d 66 | 69 6c 65 2d 62 69 6e 61 |t find-f|ile-bina|
|00001a80| 72 79 20 66 69 6c 65 6e | 61 6d 65 20 66 69 6e 64 |ry filen|ame find|
|00001a90| 2d 66 69 6c 65 20 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |-file ma|jor-mode|
|00001aa0| 20 68 65 78 6c 2d 6d 6f | 64 65 5d 20 32 20 28 23 | hexl-mo|de] 2 (#|
|00001ab0| 24 20 2e 20 36 35 35 34 | 29 20 22 66 46 69 6c 65 |$ . 6554|) "fFile|
|00001ac0| 6e 61 6d 65 3a 20 22 5d | 29 0a 23 40 37 39 20 45 |name: "]|).#@79 E|
|00001ad0| 78 69 74 20 48 65 78 6c | 20 6d 6f 64 65 2c 20 72 |xit Hexl| mode, r|
|00001ae0| 65 74 75 72 6e 69 6e 67 | 20 74 6f 20 70 72 65 76 |eturning| to prev|
|00001af0| 69 6f 75 73 20 6d 6f 64 | 65 2e 0a 57 69 74 68 20 |ious mod|e..With |
|00001b00| 61 72 67 2c 20 64 6f 6e | 27 74 20 75 6e 68 65 78 |arg, don|'t unhex|
|00001b10| 6c 69 66 79 20 62 75 66 | 66 65 72 2e 1f 0a 28 64 |lify buf|fer...(d|
|00001b20| 65 66 61 6c 69 61 73 20 | 27 68 65 78 6c 2d 6d 6f |efalias |'hexl-mo|
|00001b30| 64 65 2d 65 78 69 74 20 | 23 5b 28 26 6f 70 74 69 |de-exit |#[(&opti|
|00001b40| 6f 6e 61 6c 20 61 72 67 | 29 20 22 08 c1 3d 84 5c |onal arg|) "..=.\|
|00001b50| 6e 00 08 84 26 00 c2 20 | c3 c4 20 54 1d 1e 06 1e |n...&.. |.. T....|
|00001b60| 07 c8 20 88 c9 ca cb 5c | 22 88 cc 0e 07 21 88 0d |.. ....\|"....!..|
|00001b70| 62 88 2b c9 cd ce c3 23 | 88 c9 cf d0 c3 23 88 0e |b.+....#|.....#..|
|00001b80| 11 16 5c 6e 0e 12 16 13 | 0e 14 16 15 d6 0e 17 21 |..\n....|.......!|
|00001b90| 88 d8 0e 19 21 88 0e 1a | 16 1b dc 20 87 22 20 5b |....!...|... ." [|
|00001ba0| 61 72 67 20 31 20 62 75 | 66 66 65 72 2d 6d 6f 64 |arg 1 bu|ffer-mod|
|00001bb0| 69 66 69 65 64 2d 70 20 | 74 20 68 65 78 6c 2d 63 |ified-p |t hexl-c|
|00001bc0| 75 72 72 65 6e 74 2d 61 | 64 64 72 65 73 73 20 6f |urrent-a|ddress o|
|00001bd0| 72 69 67 69 6e 61 6c 2d | 70 6f 69 6e 74 20 69 6e |riginal-|point in|
|00001be0| 68 69 62 69 74 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |hibit-re|ad-only |
|00001bf0| 6d 6f 64 69 66 69 65 64 | 20 64 65 68 65 78 6c 69 |modified| dehexli|
|00001c00| 66 79 2d 62 75 66 66 65 | 72 20 72 65 6d 6f 76 65 |fy-buffe|r remove|
|00001c10| 2d 68 6f 6f 6b 20 77 72 | 69 74 65 2d 63 6f 6e 74 |-hook wr|ite-cont|
|00001c20| 65 6e 74 73 2d 68 6f 6f | 6b 73 20 68 65 78 6c 2d |ents-hoo|ks hexl-|
|00001c30| 73 61 76 65 2d 62 75 66 | 66 65 72 20 73 65 74 2d |save-buf|fer set-|
|00001c40| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|00001c50| 70 20 61 66 74 65 72 2d | 72 65 76 65 72 74 2d 68 |p after-|revert-h|
|00001c60| 6f 6f 6b 20 68 65 78 6c | 2d 61 66 74 65 72 2d 72 |ook hexl|-after-r|
|00001c70| 65 76 65 72 74 2d 68 6f | 6f 6b 20 63 68 61 6e 67 |evert-ho|ok chang|
|00001c80| 65 2d 6d 61 6a 6f 72 2d | 6d 6f 64 65 2d 68 6f 6f |e-major-|mode-hoo|
|00001c90| 6b 20 68 65 78 6c 2d 6d | 61 79 62 65 2d 64 65 68 |k hexl-m|aybe-deh|
|00001ca0| 65 78 6c 69 66 79 2d 62 | 75 66 66 65 72 20 68 65 |exlify-b|uffer he|
|00001cb0| 78 6c 2d 6d 6f 64 65 2d | 6f 6c 64 2d 77 72 69 74 |xl-mode-|old-writ|
|00001cc0| 65 2d 63 6f 6e 74 65 6e | 74 73 2d 68 6f 6f 6b 73 |e-conten|ts-hooks|
|00001cd0| 20 68 65 78 6c 2d 6d 6f | 64 65 2d 6f 6c 64 2d 72 | hexl-mo|de-old-r|
|00001ce0| 65 71 75 69 72 65 2d 66 | 69 6e 61 6c 2d 6e 65 77 |equire-f|inal-new|
|00001cf0| 6c 69 6e 65 20 72 65 71 | 75 69 72 65 2d 66 69 6e |line req|uire-fin|
|00001d00| 61 6c 2d 6e 65 77 6c 69 | 6e 65 20 68 65 78 6c 2d |al-newli|ne hexl-|
|00001d10| 6d 6f 64 65 2d 6f 6c 64 | 2d 6d 6f 64 65 2d 6e 61 |mode-old|-mode-na|
|00001d20| 6d 65 20 6d 6f 64 65 2d | 6e 61 6d 65 20 75 73 65 |me mode-|name use|
|00001d30| 2d 6c 6f 63 61 6c 2d 6d | 61 70 20 68 65 78 6c 2d |-local-m|ap hexl-|
|00001d40| 6d 6f 64 65 2d 6f 6c 64 | 2d 6c 6f 63 61 6c 2d 6d |mode-old|-local-m|
|00001d50| 61 70 20 73 65 74 2d 73 | 79 6e 74 61 78 2d 74 61 |ap set-s|yntax-ta|
|00001d60| 62 6c 65 20 68 65 78 6c | 2d 6d 6f 64 65 2d 6f 6c |ble hexl|-mode-ol|
|00001d70| 64 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 68 |d-syntax|-table h|
|00001d80| 65 78 6c 2d 6d 6f 64 65 | 2d 6f 6c 64 2d 6d 61 6a |exl-mode|-old-maj|
|00001d90| 6f 72 2d 6d 6f 64 65 20 | 6d 61 6a 6f 72 2d 6d 6f |or-mode |major-mo|
|00001da0| 64 65 20 66 6f 72 63 65 | 2d 6d 6f 64 65 2d 6c 69 |de force|-mode-li|
|00001db0| 6e 65 2d 75 70 64 61 74 | 65 5d 20 34 20 28 23 24 |ne-updat|e] 4 (#$|
|00001dc0| 20 2e 20 36 38 36 33 29 | 20 22 70 22 5d 29 0a 23 | . 6863)| "p"]).#|
|00001dd0| 40 37 32 20 43 6f 6e 76 | 65 72 74 20 61 20 68 65 |@72 Conv|ert a he|
|00001de0| 78 6c 20 66 6f 72 6d 61 | 74 20 62 75 66 66 65 72 |xl forma|t buffer|
|00001df0| 20 74 6f 20 62 69 6e 61 | 72 79 2e 0a 41 73 6b 20 | to bina|ry..Ask |
|00001e00| 74 68 65 20 75 73 65 72 | 20 66 6f 72 20 63 6f 6e |the user| for con|
|00001e10| 66 69 72 6d 61 74 69 6f | 6e 2e 1f 0a 28 64 65 66 |firmatio|n...(def|
|00001e20| 61 6c 69 61 73 20 27 68 | 65 78 6c 2d 6d 61 79 62 |alias 'h|exl-mayb|
|00001e30| 65 2d 64 65 68 65 78 6c | 69 66 79 2d 62 75 66 66 |e-dehexl|ify-buff|
|00001e40| 65 72 20 23 5b 6e 69 6c | 20 22 c0 c1 21 85 21 00 |er #[nil| "..!.!.|
|00001e50| c2 20 c3 c4 20 54 1d 1e | 06 1e 07 c8 20 88 c9 ca |. .. T..|.... ...|
|00001e60| cb 5c 22 88 cc 0e 07 21 | 88 0d 62 2b 87 22 20 5b |.\"....!|..b+." [|
|00001e70| 79 2d 6f 72 2d 6e 2d 70 | 20 22 43 6f 6e 76 65 72 |y-or-n-p| "Conver|
|00001e80| 74 20 63 6f 6e 74 65 6e | 74 73 20 62 61 63 6b 20 |t conten|ts back |
|00001e90| 74 6f 20 62 69 6e 61 72 | 79 20 66 6f 72 6d 61 74 |to binar|y format|
|00001ea0| 3f 20 22 20 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |? " buff|er-modif|
|00001eb0| 69 65 64 2d 70 20 74 20 | 68 65 78 6c 2d 63 75 72 |ied-p t |hexl-cur|
|00001ec0| 72 65 6e 74 2d 61 64 64 | 72 65 73 73 20 6f 72 69 |rent-add|ress ori|
|00001ed0| 67 69 6e 61 6c 2d 70 6f | 69 6e 74 20 69 6e 68 69 |ginal-po|int inhi|
|00001ee0| 62 69 74 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 6d 6f |bit-read|-only mo|
|00001ef0| 64 69 66 69 65 64 20 64 | 65 68 65 78 6c 69 66 79 |dified d|ehexlify|
|00001f00| 2d 62 75 66 66 65 72 20 | 72 65 6d 6f 76 65 2d 68 |-buffer |remove-h|
|00001f10| 6f 6f 6b 20 77 72 69 74 | 65 2d 63 6f 6e 74 65 6e |ook writ|e-conten|
|00001f20| 74 73 2d 68 6f 6f 6b 73 | 20 68 65 78 6c 2d 73 61 |ts-hooks| hexl-sa|
|00001f30| 76 65 2d 62 75 66 66 65 | 72 20 73 65 74 2d 62 75 |ve-buffe|r set-bu|
|00001f40| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 5d |ffer-mod|ified-p]|
|00001f50| 20 33 20 28 23 24 20 2e | 20 37 36 33 36 29 5d 29 | 3 (#$ .| 7636)])|
|00001f60| 0a 23 40 33 30 20 52 65 | 74 75 72 6e 20 63 75 72 |.#@30 Re|turn cur|
|00001f70| 72 65 6e 74 20 68 65 78 | 6c 2d 61 64 64 72 65 73 |rent hex|l-addres|
|00001f80| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 68 |s...(def|alias 'h|
|00001f90| 65 78 6c 2d 63 75 72 72 | 65 6e 74 2d 61 64 64 72 |exl-curr|ent-addr|
|00001fa0| 65 73 73 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ess #[(&|optional|
|00001fb0| 20 76 61 6c 69 64 61 74 | 65 29 20 22 60 c0 a6 c1 | validat|e) "`...|
|00001fc0| 5a c2 1b 89 1c c2 57 83 | 1b 00 0d 83 19 00 c6 c7 |Z.....W.|........|
|00001fd0| 21 88 82 1b 00 c2 14 60 | c0 a5 c8 5f 5c 66 c9 59 |!......`|..._\f.Y|
|00001fe0| 83 2c 00 5c 66 c9 5a 82 | 33 00 5c 66 89 ca a5 5a |.,.\f.Z.|3.\f...Z|
|00001ff0| cb a5 5c 5c 89 13 2a 87 | 22 20 5b 36 38 20 31 31 |..\\..*.|" [68 11|
|00002000| 20 30 20 68 65 78 6c 2d | 61 64 64 72 65 73 73 20 | 0 hexl-|address |
|00002010| 63 75 72 72 65 6e 74 2d | 63 6f 6c 75 6d 6e 20 76 |current-|column v|
|00002020| 61 6c 69 64 61 74 65 20 | 65 72 72 6f 72 20 22 50 |alidate |error "P|
|00002030| 6f 69 6e 74 20 69 73 20 | 6e 6f 74 20 6f 6e 20 61 |oint is |not on a|
|00002040| 20 63 68 61 72 61 63 74 | 65 72 20 69 6e 20 74 68 | charact|er in th|
|00002050| 65 20 66 69 6c 65 22 20 | 31 36 20 34 31 20 35 20 |e file" |16 41 5 |
|00002060| 32 5d 20 35 20 28 23 24 | 20 2e 20 38 30 33 38 29 |2] 5 (#$| . 8038)|
|00002070| 20 6e 69 6c 5d 29 0a 23 | 40 32 38 20 52 65 74 75 | nil]).#|@28 Retu|
|00002080| 72 6e 20 6d 61 72 6b 65 | 72 20 66 6f 72 20 41 44 |rn marke|r for AD|
|00002090| 44 52 45 53 53 2e 1f 0a | 28 64 65 66 61 6c 69 61 |DRESS...|(defalia|
|000020a0| 73 20 27 68 65 78 6c 2d | 61 64 64 72 65 73 73 2d |s 'hexl-|address-|
|000020b0| 74 6f 2d 6d 61 72 6b 65 | 72 20 23 5b 28 61 64 64 |to-marke|r #[(add|
|000020c0| 72 65 73 73 29 20 22 08 | c1 a5 c2 5f 08 c1 a6 c3 |ress) ".|..._....|
|000020d0| 5f c4 a5 5c 5c c5 5c 5c | 87 22 20 5b 61 64 64 72 |_..\\.\\|." [addr|
|000020e0| 65 73 73 20 31 36 20 36 | 38 20 35 20 32 20 31 31 |ess 16 6|8 5 2 11|
|000020f0| 5d 20 33 20 28 23 24 20 | 2e 20 38 33 31 36 29 20 |] 3 (#$ |. 8316) |
|00002100| 22 6e 41 64 64 72 65 73 | 73 3a 20 22 5d 29 0a 23 |"nAddres|s: "]).#|
|00002110| 40 38 31 20 47 6f 74 6f | 20 68 65 78 6c 2d 6d 6f |@81 Goto| hexl-mo|
|00002120| 64 65 20 28 64 65 63 69 | 6d 61 6c 29 20 61 64 64 |de (deci|mal) add|
|00002130| 72 65 73 73 20 41 44 44 | 52 45 53 53 2e 0a 53 69 |ress ADD|RESS..Si|
|00002140| 67 6e 61 6c 20 65 72 72 | 6f 72 20 69 66 20 41 44 |gnal err|or if AD|
|00002150| 44 52 45 53 53 20 6f 75 | 74 20 6f 66 20 72 61 6e |DRESS ou|t of ran|
|00002160| 67 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ge...(de|falias '|
|00002170| 68 65 78 6c 2d 67 6f 74 | 6f 2d 61 64 64 72 65 73 |hexl-got|o-addres|
|00002180| 73 20 23 5b 28 61 64 64 | 72 65 73 73 29 20 22 08 |s #[(add|ress) ".|
|00002190| c1 57 84 5c 66 00 08 5c | 6e 56 83 10 00 c3 c4 21 |.W.\f..\|nV.....!|
|000021a0| 88 c5 08 21 62 87 22 20 | 5b 61 64 64 72 65 73 73 |...!b." |[address|
|000021b0| 20 30 20 68 65 78 6c 2d | 6d 61 78 2d 61 64 64 72 | 0 hexl-|max-addr|
|000021c0| 65 73 73 20 65 72 72 6f | 72 20 22 4f 75 74 20 6f |ess erro|r "Out o|
|000021d0| 66 20 68 65 78 6c 20 72 | 65 67 69 6f 6e 2e 22 20 |f hexl r|egion." |
|000021e0| 68 65 78 6c 2d 61 64 64 | 72 65 73 73 2d 74 6f 2d |hexl-add|ress-to-|
|000021f0| 6d 61 72 6b 65 72 5d 20 | 32 20 28 23 24 20 2e 20 |marker] |2 (#$ . |
|00002200| 38 34 36 38 29 20 22 6e | 41 64 64 72 65 73 73 3a |8468) "n|Address:|
|00002210| 20 22 5d 29 0a 23 40 39 | 36 20 47 6f 20 74 6f 20 | "]).#@9|6 Go to |
|00002220| 68 65 78 6c 2d 6d 6f 64 | 65 20 61 64 64 72 65 73 |hexl-mod|e addres|
|00002230| 73 20 28 68 65 78 20 73 | 74 72 69 6e 67 29 20 48 |s (hex s|tring) H|
|00002240| 45 58 2d 41 44 44 52 45 | 53 53 2e 0a 53 69 67 6e |EX-ADDRE|SS..Sign|
|00002250| 61 6c 20 65 72 72 6f 72 | 20 69 66 20 48 45 58 2d |al error| if HEX-|
|00002260| 41 44 44 52 45 53 53 20 | 69 73 20 6f 75 74 20 6f |ADDRESS |is out o|
|00002270| 66 20 72 61 6e 67 65 2e | 1f 0a 28 64 65 66 61 6c |f range.|..(defal|
|00002280| 69 61 73 20 27 68 65 78 | 6c 2d 67 6f 74 6f 2d 68 |ias 'hex|l-goto-h|
|00002290| 65 78 2d 61 64 64 72 65 | 73 73 20 23 5b 28 68 65 |ex-addre|ss #[(he|
|000022a0| 78 2d 61 64 64 72 65 73 | 73 29 20 22 c0 c1 5c 6e |x-addres|s) "..\n|
|000022b0| 21 21 87 22 20 5b 68 65 | 78 6c 2d 67 6f 74 6f 2d |!!." [he|xl-goto-|
|000022c0| 61 64 64 72 65 73 73 20 | 68 65 78 6c 2d 68 65 78 |address |hexl-hex|
|000022d0| 2d 73 74 72 69 6e 67 2d | 74 6f 2d 69 6e 74 65 67 |-string-|to-integ|
|000022e0| 65 72 20 68 65 78 2d 61 | 64 64 72 65 73 73 5d 20 |er hex-a|ddress] |
|000022f0| 33 20 28 23 24 20 2e 20 | 38 37 33 30 29 20 22 73 |3 (#$ . |8730) "s|
|00002300| 48 65 78 20 41 64 64 72 | 65 73 73 3a 20 22 5d 29 |Hex Addr|ess: "])|
|00002310| 0a 23 40 34 30 20 52 65 | 74 75 72 6e 20 64 65 63 |.#@40 Re|turn dec|
|00002320| 69 6d 61 6c 20 69 6e 74 | 65 67 65 72 20 66 6f 72 |imal int|eger for|
|00002330| 20 48 45 58 2d 53 54 52 | 49 4e 47 2e 1f 0a 28 64 | HEX-STR|ING...(d|
|00002340| 65 66 61 6c 69 61 73 20 | 27 68 65 78 6c 2d 68 65 |efalias |'hexl-he|
|00002350| 78 2d 73 74 72 69 6e 67 | 2d 74 6f 2d 69 6e 74 65 |x-string|-to-inte|
|00002360| 67 65 72 20 23 5b 28 68 | 65 78 2d 73 74 72 69 6e |ger #[(h|ex-strin|
|00002370| 67 29 20 22 c0 19 5c 6e | c3 9a 84 1b 00 09 c4 5f |g) "..\n|......._|
|00002380| c5 c6 5c 6e 21 21 5c 5c | 11 5c 6e c7 c8 4f 89 12 |..\n!!\\|.\n..O..|
|00002390| 82 03 00 09 29 87 22 20 | 5b 30 20 68 65 78 2d 6e |....)." |[0 hex-n|
|000023a0| 75 6d 20 68 65 78 2d 73 | 74 72 69 6e 67 20 22 22 |um hex-s|tring ""|
|000023b0| 20 31 36 20 68 65 78 6c | 2d 68 65 78 2d 63 68 61 | 16 hexl|-hex-cha|
|000023c0| 72 2d 74 6f 2d 69 6e 74 | 65 67 65 72 20 73 74 72 |r-to-int|eger str|
|000023d0| 69 6e 67 2d 74 6f 2d 63 | 68 61 72 20 31 20 6e 69 |ing-to-c|har 1 ni|
|000023e0| 6c 5d 20 35 20 28 23 24 | 20 2e 20 38 39 38 32 29 |l] 5 (#$| . 8982)|
|000023f0| 20 22 73 48 65 78 20 6e | 75 6d 62 65 72 3a 20 22 | "sHex n|umber: "|
|00002400| 5d 29 0a 23 40 34 32 20 | 52 65 74 75 72 6e 20 64 |]).#@42 |Return d|
|00002410| 65 63 69 6d 61 6c 20 69 | 6e 74 65 67 65 72 20 66 |ecimal i|nteger f|
|00002420| 6f 72 20 4f 43 54 41 4c | 2d 53 54 52 49 4e 47 2e |or OCTAL|-STRING.|
|00002430| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 68 65 78 |..(defal|ias 'hex|
|00002440| 6c 2d 6f 63 74 61 6c 2d | 73 74 72 69 6e 67 2d 74 |l-octal-|string-t|
|00002450| 6f 2d 69 6e 74 65 67 65 | 72 20 23 5b 28 6f 63 74 |o-intege|r #[(oct|
|00002460| 61 6c 2d 73 74 72 69 6e | 67 29 20 22 c0 19 5c 6e |al-strin|g) "..\n|
|00002470| c3 9a 84 1b 00 09 c4 5f | c5 c6 5c 6e 21 21 5c 5c |......._|..\n!!\\|
|00002480| 11 5c 6e c7 c8 4f 89 12 | 82 03 00 09 29 87 22 20 |.\n..O..|....)." |
|00002490| 5b 30 20 6f 63 74 2d 6e | 75 6d 20 6f 63 74 61 6c |[0 oct-n|um octal|
|000024a0| 2d 73 74 72 69 6e 67 20 | 22 22 20 38 20 68 65 78 |-string |"" 8 hex|
|000024b0| 6c 2d 6f 63 74 2d 63 68 | 61 72 2d 74 6f 2d 69 6e |l-oct-ch|ar-to-in|
|000024c0| 74 65 67 65 72 20 73 74 | 72 69 6e 67 2d 74 6f 2d |teger st|ring-to-|
|000024d0| 63 68 61 72 20 31 20 6e | 69 6c 5d 20 35 20 28 23 |char 1 n|il] 5 (#|
|000024e0| 24 20 2e 20 39 32 32 34 | 29 20 22 73 4f 63 74 61 |$ . 9224|) "sOcta|
|000024f0| 6c 20 6e 75 6d 62 65 72 | 3a 20 22 5d 29 0a 23 40 |l number|: "]).#@|
|00002500| 36 32 20 4d 6f 76 65 20 | 74 6f 20 6c 65 66 74 20 |62 Move |to left |
|00002510| 41 52 47 20 62 79 74 65 | 73 20 28 72 69 67 68 74 |ARG byte|s (right|
|00002520| 20 69 66 20 41 52 47 20 | 6e 65 67 61 74 69 76 65 | if ARG |negative|
|00002530| 29 20 69 6e 20 68 65 78 | 6c 2d 6d 6f 64 65 2e 1f |) in hex|l-mode..|
|00002540| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 68 65 78 6c |.(defali|as 'hexl|
|00002550| 2d 62 61 63 6b 77 61 72 | 64 2d 63 68 61 72 20 23 |-backwar|d-char #|
|00002560| 5b 28 61 72 67 29 20 22 | c0 c1 20 5c 6e 5a 21 87 |[(arg) "|.. \nZ!.|
|00002570| 22 20 5b 68 65 78 6c 2d | 67 6f 74 6f 2d 61 64 64 |" [hexl-|goto-add|
|00002580| 72 65 73 73 20 68 65 78 | 6c 2d 63 75 72 72 65 6e |ress hex|l-curren|
|00002590| 74 2d 61 64 64 72 65 73 | 73 20 61 72 67 5d 20 33 |t-addres|s arg] 3|
|000025a0| 20 28 23 24 20 2e 20 39 | 34 37 35 29 20 22 70 22 | (#$ . 9|475) "p"|
|000025b0| 5d 29 0a 23 40 35 39 20 | 4d 6f 76 65 20 72 69 67 |]).#@59 |Move rig|
|000025c0| 68 74 20 41 52 47 20 62 | 79 74 65 73 20 28 6c 65 |ht ARG b|ytes (le|
|000025d0| 66 74 20 69 66 20 41 52 | 47 20 6e 65 67 61 74 69 |ft if AR|G negati|
|000025e0| 76 65 29 20 69 6e 20 68 | 65 78 6c 2d 6d 6f 64 65 |ve) in h|exl-mode|
|000025f0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 68 65 |...(defa|lias 'he|
|00002600| 78 6c 2d 66 6f 72 77 61 | 72 64 2d 63 68 61 72 20 |xl-forwa|rd-char |
|00002610| 23 5b 28 61 72 67 29 20 | 22 c0 c1 20 5c 6e 5c 5c |#[(arg) |".. \n\\|
|00002620| 21 87 22 20 5b 68 65 78 | 6c 2d 67 6f 74 6f 2d 61 |!." [hex|l-goto-a|
|00002630| 64 64 72 65 73 73 20 68 | 65 78 6c 2d 63 75 72 72 |ddress h|exl-curr|
|00002640| 65 6e 74 2d 61 64 64 72 | 65 73 73 20 61 72 67 5d |ent-addr|ess arg]|
|00002650| 20 33 20 28 23 24 20 2e | 20 39 36 35 36 29 20 22 | 3 (#$ .| 9656) "|
|00002660| 70 22 5d 29 0a 23 40 36 | 33 20 4d 6f 76 65 20 74 |p"]).#@6|3 Move t|
|00002670| 6f 20 6c 65 66 74 20 41 | 52 47 20 73 68 6f 72 74 |o left A|RG short|
|00002680| 73 20 28 72 69 67 68 74 | 20 69 66 20 41 52 47 20 |s (right| if ARG |
|00002690| 6e 65 67 61 74 69 76 65 | 29 20 69 6e 20 68 65 78 |negative|) in hex|
|000026a0| 6c 2d 6d 6f 64 65 2e 1f | 0a 28 64 65 66 61 6c 69 |l-mode..|.(defali|
|000026b0| 61 73 20 27 68 65 78 6c | 2d 62 61 63 6b 77 61 72 |as 'hexl|-backwar|
|000026c0| 64 2d 73 68 6f 72 74 20 | 23 5b 28 61 72 67 29 20 |d-short |#[(arg) |
|000026d0| 22 c0 c1 20 1a 0b c4 57 | 83 6a 00 0b 5b 89 13 c4 |".. ...W|.j..[...|
|000026e0| 56 83 51 00 5c 6e c5 5c | 6e c6 5c 22 9a 84 35 00 |V.Q.\n.\|n.\"..5.|
|000026f0| 5c 6e 0e 07 56 83 2d 00 | c8 c9 21 88 0e 07 12 82 |\n..V.-.|..!.....|
|00002700| 4a 00 c5 5c 6e c6 5c 22 | 12 82 4a 00 5c 6e 0e 07 |J..\n.\"|..J.\n..|
|00002710| 56 83 46 00 c8 c9 21 88 | 0e 07 12 82 4a 00 5c 6e |V.F...!.|....J.\n|
|00002720| ca 5c 5c 12 0b 53 89 13 | 82 0e 00 5c 6e 0e 07 56 |.\\..S..|...\n..V|
|00002730| 83 62 00 c8 c9 21 88 0e | 07 12 82 99 00 c5 5c 6e |.b...!..|......\n|
|00002740| c6 5c 22 12 82 99 00 0b | c4 56 83 99 00 5c 6e cb |.\".....|.V...\n.|
|00002750| 5c 6e cc 5c 22 9a 84 81 | 00 cb 5c 6e cc 5c 22 12 |\n.\"...|..\n.\".|
|00002760| 82 92 00 5c 6e c4 9a 84 | 8e 00 5c 6e ca 5a 12 82 |...\n...|..\n.Z..|
|00002770| 92 00 c8 cd 21 88 0b 53 | 89 13 82 6b 00 5c 6e 29 |....!..S|...k.\n)|
|00002780| 21 87 22 20 5b 68 65 78 | 6c 2d 67 6f 74 6f 2d 61 |!." [hex|l-goto-a|
|00002790| 64 64 72 65 73 73 20 68 | 65 78 6c 2d 63 75 72 72 |ddress h|exl-curr|
|000027a0| 65 6e 74 2d 61 64 64 72 | 65 73 73 20 61 64 64 72 |ent-addr|ess addr|
|000027b0| 65 73 73 20 61 72 67 20 | 30 20 6c 6f 67 69 6f 72 |ess arg |0 logior|
|000027c0| 20 33 20 68 65 78 6c 2d | 6d 61 78 2d 61 64 64 72 | 3 hexl-|max-addr|
|000027d0| 65 73 73 20 6d 65 73 73 | 61 67 65 20 22 45 6e 64 |ess mess|age "End|
|000027e0| 20 6f 66 20 62 75 66 66 | 65 72 2e 22 20 34 20 6c | of buff|er." 4 l|
|000027f0| 6f 67 61 6e 64 20 2d 34 | 20 22 42 65 67 69 6e 6e |ogand -4| "Beginn|
|00002800| 69 6e 67 20 6f 66 20 62 | 75 66 66 65 72 2e 22 5d |ing of b|uffer."]|
|00002810| 20 36 20 28 23 24 20 2e | 20 39 38 33 34 29 20 22 | 6 (#$ .| 9834) "|
|00002820| 70 22 5d 29 0a 23 40 36 | 30 20 4d 6f 76 65 20 72 |p"]).#@6|0 Move r|
|00002830| 69 67 68 74 20 41 52 47 | 20 73 68 6f 72 74 73 20 |ight ARG| shorts |
|00002840| 28 6c 65 66 74 20 69 66 | 20 41 52 47 20 6e 65 67 |(left if| ARG neg|
|00002850| 61 74 69 76 65 29 20 69 | 6e 20 68 65 78 6c 2d 6d |ative) i|n hexl-m|
|00002860| 6f 64 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ode...(d|efalias |
|00002870| 27 68 65 78 6c 2d 66 6f | 72 77 61 72 64 2d 73 68 |'hexl-fo|rward-sh|
|00002880| 6f 72 74 20 23 5b 28 61 | 72 67 29 20 22 c0 09 5b |ort #[(a|rg) "..[|
|00002890| 21 87 22 20 5b 68 65 78 | 6c 2d 62 61 63 6b 77 61 |!." [hex|l-backwa|
|000028a0| 72 64 2d 73 68 6f 72 74 | 20 61 72 67 5d 20 32 20 |rd-short| arg] 2 |
|000028b0| 28 23 24 20 2e 20 31 30 | 32 38 32 29 20 22 70 22 |(#$ . 10|282) "p"|
|000028c0| 5d 29 0a 23 40 36 32 20 | 4d 6f 76 65 20 74 6f 20 |]).#@62 |Move to |
|000028d0| 6c 65 66 74 20 41 52 47 | 20 77 6f 72 64 73 20 28 |left ARG| words (|
|000028e0| 72 69 67 68 74 20 69 66 | 20 41 52 47 20 6e 65 67 |right if| ARG neg|
|000028f0| 61 74 69 76 65 29 20 69 | 6e 20 68 65 78 6c 2d 6d |ative) i|n hexl-m|
|00002900| 6f 64 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ode...(d|efalias |
|00002910| 27 68 65 78 6c 2d 62 61 | 63 6b 77 61 72 64 2d 77 |'hexl-ba|ckward-w|
|00002920| 6f 72 64 20 23 5b 28 61 | 72 67 29 20 22 c0 c1 20 |ord #[(a|rg) ".. |
|00002930| 1a 0b c4 57 83 6a 00 0b | 5b 89 13 c4 56 83 51 00 |...W.j..|[...V.Q.|
|00002940| 5c 6e c5 5c 6e c6 5c 22 | 9a 84 35 00 5c 6e 0e 07 |\n.\n.\"|..5.\n..|
|00002950| 56 83 2d 00 c8 c9 21 88 | 0e 07 12 82 4a 00 c5 5c |V.-...!.|....J..\|
|00002960| 6e c6 5c 22 12 82 4a 00 | 5c 6e 0e 07 56 83 46 00 |n.\"..J.|\n..V.F.|
|00002970| c8 c9 21 88 0e 07 12 82 | 4a 00 5c 6e ca 5c 5c 12 |..!.....|J.\n.\\.|
|00002980| 0b 53 89 13 82 0e 00 5c | 6e 0e 07 56 83 62 00 c8 |.S.....\|n..V.b..|
|00002990| c9 21 88 0e 07 12 82 99 | 00 c5 5c 6e c6 5c 22 12 |.!......|..\n.\".|
|000029a0| 82 99 00 0b c4 56 83 99 | 00 5c 6e cb 5c 6e cc 5c |.....V..|.\n.\n.\|
|000029b0| 22 9a 84 81 00 cb 5c 6e | cc 5c 22 12 82 92 00 5c |".....\n|.\"....\|
|000029c0| 6e c4 9a 84 8e 00 5c 6e | ca 5a 12 82 92 00 c8 cd |n.....\n|.Z......|
|000029d0| 21 88 0b 53 89 13 82 6b | 00 5c 6e 29 21 87 22 20 |!..S...k|.\n)!." |
|000029e0| 5b 68 65 78 6c 2d 67 6f | 74 6f 2d 61 64 64 72 65 |[hexl-go|to-addre|
|000029f0| 73 73 20 68 65 78 6c 2d | 63 75 72 72 65 6e 74 2d |ss hexl-|current-|
|00002a00| 61 64 64 72 65 73 73 20 | 61 64 64 72 65 73 73 20 |address |address |
|00002a10| 61 72 67 20 30 20 6c 6f | 67 69 6f 72 20 37 20 68 |arg 0 lo|gior 7 h|
|00002a20| 65 78 6c 2d 6d 61 78 2d | 61 64 64 72 65 73 73 20 |exl-max-|address |
|00002a30| 6d 65 73 73 61 67 65 20 | 22 45 6e 64 20 6f 66 20 |message |"End of |
|00002a40| 62 75 66 66 65 72 2e 22 | 20 38 20 6c 6f 67 61 6e |buffer."| 8 logan|
|00002a50| 64 20 2d 38 20 22 42 65 | 67 69 6e 6e 69 6e 67 20 |d -8 "Be|ginning |
|00002a60| 6f 66 20 62 75 66 66 65 | 72 2e 22 5d 20 36 20 28 |of buffe|r."] 6 (|
|00002a70| 23 24 20 2e 20 31 30 34 | 34 30 29 20 22 70 22 5d |#$ . 104|40) "p"]|
|00002a80| 29 0a 23 40 35 39 20 4d | 6f 76 65 20 72 69 67 68 |).#@59 M|ove righ|
|00002a90| 74 20 41 52 47 20 77 6f | 72 64 73 20 28 6c 65 66 |t ARG wo|rds (lef|
|00002aa0| 74 20 69 66 20 41 52 47 | 20 6e 65 67 61 74 69 76 |t if ARG| negativ|
|00002ab0| 65 29 20 69 6e 20 68 65 | 78 6c 2d 6d 6f 64 65 2e |e) in he|xl-mode.|
|00002ac0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 68 65 78 |..(defal|ias 'hex|
|00002ad0| 6c 2d 66 6f 72 77 61 72 | 64 2d 77 6f 72 64 20 23 |l-forwar|d-word #|
|00002ae0| 5b 28 61 72 67 29 20 22 | c0 09 5b 21 87 22 20 5b |[(arg) "|..[!." [|
|00002af0| 68 65 78 6c 2d 62 61 63 | 6b 77 61 72 64 2d 77 6f |hexl-bac|kward-wo|
|00002b00| 72 64 20 61 72 67 5d 20 | 32 20 28 23 24 20 2e 20 |rd arg] |2 (#$ . |
|00002b10| 31 30 38 38 37 29 20 22 | 70 22 5d 29 0a 23 40 31 |10887) "|p"]).#@1|
|00002b20| 35 33 20 4d 6f 76 65 20 | 76 65 72 74 69 63 61 6c |53 Move |vertical|
|00002b30| 6c 79 20 75 70 20 41 52 | 47 20 6c 69 6e 65 73 20 |ly up AR|G lines |
|00002b40| 5b 31 36 20 62 79 74 65 | 73 5d 20 28 64 6f 77 6e |[16 byte|s] (down|
|00002b50| 20 69 66 20 41 52 47 20 | 6e 65 67 61 74 69 76 65 | if ARG |negative|
|00002b60| 29 20 69 6e 20 68 65 78 | 6c 2d 6d 6f 64 65 2e 0a |) in hex|l-mode..|
|00002b70| 49 66 20 74 68 65 72 65 | 20 69 73 20 62 79 74 65 |If there| is byte|
|00002b80| 20 61 74 20 74 68 65 20 | 74 61 72 67 65 74 20 61 | at the |target a|
|00002b90| 64 64 72 65 73 73 20 6d | 6f 76 65 20 74 6f 20 74 |ddress m|ove to t|
|00002ba0| 68 65 20 6c 61 73 74 20 | 62 79 74 65 20 69 6e 20 |he last |byte in |
|00002bb0| 74 68 61 74 20 6c 69 6e | 65 2e 1f 0a 28 64 65 66 |that lin|e...(def|
|00002bc0| 61 6c 69 61 73 20 27 68 | 65 78 6c 2d 70 72 65 76 |alias 'h|exl-prev|
|00002bd0| 69 6f 75 73 2d 6c 69 6e | 65 20 23 5b 28 61 72 67 |ious-lin|e #[(arg|
|00002be0| 29 20 22 c0 09 5b 21 87 | 22 20 5b 68 65 78 6c 2d |) "..[!.|" [hexl-|
|00002bf0| 6e 65 78 74 2d 6c 69 6e | 65 20 61 72 67 5d 20 32 |next-lin|e arg] 2|
|00002c00| 20 28 23 24 20 2e 20 31 | 31 30 34 33 29 20 22 70 | (#$ . 1|1043) "p|
|00002c10| 22 5d 29 0a 23 40 31 35 | 36 20 4d 6f 76 65 20 76 |"]).#@15|6 Move v|
|00002c20| 65 72 74 69 63 61 6c 6c | 79 20 64 6f 77 6e 20 41 |erticall|y down A|
|00002c30| 52 47 20 6c 69 6e 65 73 | 20 5b 31 36 20 62 79 74 |RG lines| [16 byt|
|00002c40| 65 73 5d 20 28 75 70 20 | 69 66 20 41 52 47 20 6e |es] (up |if ARG n|
|00002c50| 65 67 61 74 69 76 65 29 | 20 69 6e 20 68 65 78 6c |egative)| in hexl|
|00002c60| 2d 6d 6f 64 65 2e 0a 49 | 66 20 74 68 65 72 65 20 |-mode..I|f there |
|00002c70| 69 73 20 6e 6f 20 62 79 | 74 65 20 61 74 20 74 68 |is no by|te at th|
|00002c80| 65 20 74 61 72 67 65 74 | 20 61 64 64 72 65 73 73 |e target| address|
|00002c90| 20 6d 6f 76 65 20 74 6f | 20 74 68 65 20 6c 61 73 | move to| the las|
|00002ca0| 74 20 62 79 74 65 20 69 | 6e 20 74 68 61 74 20 6c |t byte i|n that l|
|00002cb0| 69 6e 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ine...(d|efalias |
|00002cc0| 27 68 65 78 6c 2d 6e 65 | 78 74 2d 6c 69 6e 65 20 |'hexl-ne|xt-line |
|00002cd0| 23 5b 28 61 72 67 29 20 | 22 c0 c1 20 5c 6e c3 5f |#[(arg) |".. \n._|
|00002ce0| 5c 5c 1c 5c 6e c5 57 83 | 20 00 5c 66 c5 57 83 20 |\\.\n.W.| .\f.W. |
|00002cf0| 00 c6 c7 21 88 c1 20 c3 | a6 14 82 4e 00 5c 66 0e |...!.. .|...N.\f.|
|00002d00| 08 56 83 38 00 0e 08 c3 | a6 5c 66 c3 a6 57 83 38 |.V.8....|.\f..W.8|
|00002d10| 00 0e 08 14 82 4e 00 5c | 66 0e 08 56 83 4e 00 c6 |.....N.\|f..V.N..|
|00002d20| c7 21 88 c9 0e 08 ca 5c | 22 c1 20 c3 a6 5c 5c 14 |.!.....\|". ..\\.|
|00002d30| 5c 66 29 21 87 22 20 5b | 68 65 78 6c 2d 67 6f 74 |\f)!." [|hexl-got|
|00002d40| 6f 2d 61 64 64 72 65 73 | 73 20 68 65 78 6c 2d 63 |o-addres|s hexl-c|
|00002d50| 75 72 72 65 6e 74 2d 61 | 64 64 72 65 73 73 20 61 |urrent-a|ddress a|
|00002d60| 72 67 20 31 36 20 61 64 | 64 72 65 73 73 20 30 20 |rg 16 ad|dress 0 |
|00002d70| 6d 65 73 73 61 67 65 20 | 22 4f 75 74 20 6f 66 20 |message |"Out of |
|00002d80| 68 65 78 6c 20 72 65 67 | 69 6f 6e 2e 22 20 68 65 |hexl reg|ion." he|
|00002d90| 78 6c 2d 6d 61 78 2d 61 | 64 64 72 65 73 73 20 6c |xl-max-a|ddress l|
|00002da0| 6f 67 61 6e 64 20 2d 31 | 36 5d 20 34 20 28 23 24 |ogand -1|6] 4 (#$|
|00002db0| 20 2e 20 31 31 32 39 30 | 29 20 22 70 22 5d 29 0a | . 11290|) "p"]).|
|00002dc0| 23 40 31 35 38 20 4d 6f | 76 65 20 74 6f 20 74 68 |#@158 Mo|ve to th|
|00002dd0| 65 20 62 65 67 69 6e 6e | 69 6e 67 20 6f 66 20 74 |e beginn|ing of t|
|00002de0| 68 65 20 68 65 78 6c 20 | 62 75 66 66 65 72 2e 0a |he hexl |buffer..|
|00002df0| 4c 65 61 76 65 73 20 60 | 68 65 78 6c 2d 6d 61 72 |Leaves `|hexl-mar|
|00002e00| 6b 27 20 61 74 20 70 72 | 65 76 69 6f 75 73 20 70 |k' at pr|evious p|
|00002e10| 6f 73 69 74 69 6f 6e 2e | 0a 57 69 74 68 20 70 72 |osition.|.With pr|
|00002e20| 65 66 69 78 20 61 72 67 | 20 4e 2c 20 70 75 74 73 |efix arg| N, puts|
|00002e30| 20 70 6f 69 6e 74 20 4e | 20 62 79 74 65 73 20 6f | point N| bytes o|
|00002e40| 66 20 74 68 65 20 77 61 | 79 20 66 72 6f 6d 20 74 |f the wa|y from t|
|00002e50| 68 65 20 74 72 75 65 20 | 62 65 67 69 6e 6e 69 6e |he true |beginnin|
|00002e60| 67 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 68 |g...(def|alias 'h|
|00002e70| 65 78 6c 2d 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |exl-begi|nning-of|
|00002e80| 2d 62 75 66 66 65 72 20 | 23 5b 28 61 72 67 29 20 |-buffer |#[(arg) |
|00002e90| 22 c0 60 21 88 c1 5c 6e | 53 21 87 22 20 5b 70 75 |".`!..\n|S!." [pu|
|00002ea0| 73 68 2d 6d 61 72 6b 20 | 68 65 78 6c 2d 67 6f 74 |sh-mark |hexl-got|
|00002eb0| 6f 2d 61 64 64 72 65 73 | 73 20 61 72 67 5d 20 32 |o-addres|s arg] 2|
|00002ec0| 20 28 23 24 20 2e 20 31 | 31 37 31 38 29 20 22 70 | (#$ . 1|1718) "p|
|00002ed0| 22 5d 29 0a 23 40 33 37 | 20 47 6f 20 74 6f 20 60 |"]).#@37| Go to `|
|00002ee0| 68 65 78 6c 2d 6d 61 78 | 2d 61 64 64 72 65 73 73 |hexl-max|-address|
|00002ef0| 27 20 6d 69 6e 75 73 20 | 41 52 47 2e 1f 0a 28 64 |' minus |ARG...(d|
|00002f00| 65 66 61 6c 69 61 73 20 | 27 68 65 78 6c 2d 65 6e |efalias |'hexl-en|
|00002f10| 64 2d 6f 66 2d 62 75 66 | 66 65 72 20 23 5b 28 61 |d-of-buf|fer #[(a|
|00002f20| 72 67 29 20 22 c0 60 21 | 88 c1 5c 6e 0b 53 5a 21 |rg) ".`!|..\n.SZ!|
|00002f30| 87 22 20 5b 70 75 73 68 | 2d 6d 61 72 6b 20 68 65 |." [push|-mark he|
|00002f40| 78 6c 2d 67 6f 74 6f 2d | 61 64 64 72 65 73 73 20 |xl-goto-|address |
|00002f50| 68 65 78 6c 2d 6d 61 78 | 2d 61 64 64 72 65 73 73 |hexl-max|-address|
|00002f60| 20 61 72 67 5d 20 33 20 | 28 23 24 20 2e 20 31 31 | arg] 3 |(#$ . 11|
|00002f70| 39 39 33 29 20 22 70 22 | 5d 29 0a 23 40 33 38 20 |993) "p"|]).#@38 |
|00002f80| 47 6f 74 6f 20 62 65 67 | 69 6e 6e 69 6e 67 20 6f |Goto beg|inning o|
|00002f90| 66 20 6c 69 6e 65 20 69 | 6e 20 68 65 78 6c 20 6d |f line i|n hexl m|
|00002fa0| 6f 64 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ode...(d|efalias |
|00002fb0| 27 68 65 78 6c 2d 62 65 | 67 69 6e 6e 69 6e 67 2d |'hexl-be|ginning-|
|00002fc0| 6f 66 2d 6c 69 6e 65 20 | 23 5b 6e 69 6c 20 22 60 |of-line |#[nil "`|
|00002fd0| c0 a5 c0 5f c1 5c 5c 62 | 87 22 20 5b 36 38 20 31 |..._.\\b|." [68 1|
|00002fe0| 31 5d 20 32 20 28 23 24 | 20 2e 20 31 32 31 36 30 |1] 2 (#$| . 12160|
|00002ff0| 29 20 6e 69 6c 5d 29 0a | 23 40 33 32 20 47 6f 74 |) nil]).|#@32 Got|
|00003000| 6f 20 65 6e 64 20 6f 66 | 20 6c 69 6e 65 20 69 6e |o end of| line in|
|00003010| 20 68 65 78 6c 20 6d 6f | 64 65 2e 1f 0a 28 64 65 | hexl mo|de...(de|
|00003020| 66 61 6c 69 61 73 20 27 | 68 65 78 6c 2d 65 6e 64 |falias '|hexl-end|
|00003030| 2d 6f 66 2d 6c 69 6e 65 | 20 23 5b 6e 69 6c 20 22 |-of-line| #[nil "|
|00003040| c0 c1 c2 20 c3 5c 22 89 | 1c 0d 56 83 0f 00 0d 14 |... .\".|..V.....|
|00003050| 5c 66 29 21 87 22 20 5b | 68 65 78 6c 2d 67 6f 74 |\f)!." [|hexl-got|
|00003060| 6f 2d 61 64 64 72 65 73 | 73 20 6c 6f 67 69 6f 72 |o-addres|s logior|
|00003070| 20 68 65 78 6c 2d 63 75 | 72 72 65 6e 74 2d 61 64 | hexl-cu|rrent-ad|
|00003080| 64 72 65 73 73 20 31 35 | 20 61 64 64 72 65 73 73 |dress 15| address|
|00003090| 20 68 65 78 6c 2d 6d 61 | 78 2d 61 64 64 72 65 73 | hexl-ma|x-addres|
|000030a0| 73 5d 20 35 20 28 23 24 | 20 2e 20 31 32 32 38 35 |s] 5 (#$| . 12285|
|000030b0| 29 20 6e 69 6c 5d 29 0a | 23 40 37 36 20 53 63 72 |) nil]).|#@76 Scr|
|000030c0| 6f 6c 6c 20 68 65 78 6c | 20 62 75 66 66 65 72 20 |oll hexl| buffer |
|000030d0| 77 69 6e 64 6f 77 20 75 | 70 77 61 72 64 20 41 52 |window u|pward AR|
|000030e0| 47 20 6c 69 6e 65 73 3b | 20 6f 72 20 6e 65 61 72 |G lines;| or near|
|000030f0| 20 66 75 6c 6c 20 77 69 | 6e 64 6f 77 20 69 66 20 | full wi|ndow if |
|00003100| 6e 6f 20 41 52 47 2e 1f | 0a 28 64 65 66 61 6c 69 |no ARG..|.(defali|
|00003110| 61 73 20 27 68 65 78 6c | 2d 73 63 72 6f 6c 6c 2d |as 'hexl|-scroll-|
|00003120| 64 6f 77 6e 20 23 5b 28 | 61 72 67 29 20 22 08 84 |down #[(|arg) "..|
|00003130| 0b 00 c1 20 53 10 82 0f | 00 c2 08 21 10 c3 08 5b |... S...|...!...[|
|00003140| 21 87 22 20 5b 61 72 67 | 20 77 69 6e 64 6f 77 2d |!." [arg| window-|
|00003150| 68 65 69 67 68 74 20 70 | 72 65 66 69 78 2d 6e 75 |height p|refix-nu|
|00003160| 6d 65 72 69 63 2d 76 61 | 6c 75 65 20 68 65 78 6c |meric-va|lue hexl|
|00003170| 2d 73 63 72 6f 6c 6c 2d | 75 70 5d 20 32 20 28 23 |-scroll-|up] 2 (#|
|00003180| 24 20 2e 20 31 32 34 37 | 37 29 20 22 50 22 5d 29 |$ . 1247|7) "P"])|
|00003190| 0a 23 40 37 36 20 53 63 | 72 6f 6c 6c 20 68 65 78 |.#@76 Sc|roll hex|
|000031a0| 6c 20 62 75 66 66 65 72 | 20 77 69 6e 64 6f 77 20 |l buffer| window |
|000031b0| 75 70 77 61 72 64 20 41 | 52 47 20 6c 69 6e 65 73 |upward A|RG lines|
|000031c0| 3b 20 6f 72 20 6e 65 61 | 72 20 66 75 6c 6c 20 77 |; or nea|r full w|
|000031d0| 69 6e 64 6f 77 20 69 66 | 20 6e 6f 20 41 52 47 2e |indow if| no ARG.|
|000031e0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 68 65 78 |..(defal|ias 'hex|
|000031f0| 6c 2d 73 63 72 6f 6c 6c | 2d 75 70 20 23 5b 28 61 |l-scroll|-up #[(a|
|00003200| 72 67 29 20 22 08 84 0b | 00 c1 20 53 10 82 0f 00 |rg) "...|.. S....|
|00003210| c2 08 21 10 08 c3 5f c4 | 20 1d 1e 06 0d 0e 06 5c |..!..._.| ......\|
|00003220| 5c 0e 07 56 84 2a 00 0d | 0e 06 5c 5c c8 57 83 30 |\..V.*..|..\\.W.0|
|00003230| 00 c9 ca 21 82 3a 00 cb | 0d 0e 06 5c 5c 21 88 cc |...!.:..|...\\!..|
|00003240| c8 21 2a 87 22 20 5b 61 | 72 67 20 77 69 6e 64 6f |.!*." [a|rg windo|
|00003250| 77 2d 68 65 69 67 68 74 | 20 70 72 65 66 69 78 2d |w-height| prefix-|
|00003260| 6e 75 6d 65 72 69 63 2d | 76 61 6c 75 65 20 31 36 |numeric-|value 16|
|00003270| 20 68 65 78 6c 2d 63 75 | 72 72 65 6e 74 2d 61 64 | hexl-cu|rrent-ad|
|00003280| 64 72 65 73 73 20 61 64 | 64 72 65 73 73 20 6d 6f |dress ad|dress mo|
|00003290| 76 65 6d 65 6e 74 20 68 | 65 78 6c 2d 6d 61 78 2d |vement h|exl-max-|
|000032a0| 61 64 64 72 65 73 73 20 | 30 20 6d 65 73 73 61 67 |address |0 messag|
|000032b0| 65 20 22 4f 75 74 20 6f | 66 20 68 65 78 6c 20 72 |e "Out o|f hexl r|
|000032c0| 65 67 69 6f 6e 2e 22 20 | 68 65 78 6c 2d 67 6f 74 |egion." |hexl-got|
|000032d0| 6f 2d 61 64 64 72 65 73 | 73 20 72 65 63 65 6e 74 |o-addres|s recent|
|000032e0| 65 72 5d 20 33 20 28 23 | 24 20 2e 20 31 32 36 39 |er] 3 (#|$ . 1269|
|000032f0| 34 29 20 22 50 22 5d 29 | 0a 23 40 33 33 20 47 6f |4) "P"])|.#@33 Go|
|00003300| 20 74 6f 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 | to begi|nning of|
|00003310| 20 31 6b 20 62 6f 75 6e | 64 61 72 79 2e 1f 0a 28 | 1k boun|dary...(|
|00003320| 64 65 66 61 6c 69 61 73 | 20 27 68 65 78 6c 2d 62 |defalias| 'hexl-b|
|00003330| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 31 6b 2d 70 |eginning|-of-1k-p|
|00003340| 61 67 65 20 23 5b 6e 69 | 6c 20 22 c0 c1 c2 20 c3 |age #[ni|l "... .|
|00003350| 5c 22 21 87 22 20 5b 68 | 65 78 6c 2d 67 6f 74 6f |\"!." [h|exl-goto|
|00003360| 2d 61 64 64 72 65 73 73 | 20 6c 6f 67 61 6e 64 20 |-address| logand |
|00003370| 68 65 78 6c 2d 63 75 72 | 72 65 6e 74 2d 61 64 64 |hexl-cur|rent-add|
|00003380| 72 65 73 73 20 2d 31 30 | 32 34 5d 20 34 20 28 23 |ress -10|24] 4 (#|
|00003390| 24 20 2e 20 31 33 30 35 | 34 29 20 6e 69 6c 5d 29 |$ . 1305|4) nil])|
|000033a0| 0a 23 40 32 37 20 47 6f | 20 74 6f 20 65 6e 64 20 |.#@27 Go| to end |
|000033b0| 6f 66 20 31 6b 20 62 6f | 75 6e 64 61 72 79 2e 1f |of 1k bo|undary..|
|000033c0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 68 65 78 6c |.(defali|as 'hexl|
|000033d0| 2d 65 6e 64 2d 6f 66 2d | 31 6b 2d 70 61 67 65 20 |-end-of-|1k-page |
|000033e0| 23 5b 6e 69 6c 20 22 c0 | c1 c2 20 c3 5c 22 89 1c |#[nil ".|.. .\"..|
|000033f0| 0d 56 83 0f 00 0d 14 5c | 66 29 21 87 22 20 5b 68 |.V.....\|f)!." [h|
|00003400| 65 78 6c 2d 67 6f 74 6f | 2d 61 64 64 72 65 73 73 |exl-goto|-address|
|00003410| 20 6c 6f 67 69 6f 72 20 | 68 65 78 6c 2d 63 75 72 | logior |hexl-cur|
|00003420| 72 65 6e 74 2d 61 64 64 | 72 65 73 73 20 31 30 32 |rent-add|ress 102|
|00003430| 33 20 61 64 64 72 65 73 | 73 20 68 65 78 6c 2d 6d |3 addres|s hexl-m|
|00003440| 61 78 2d 61 64 64 72 65 | 73 73 5d 20 35 20 28 23 |ax-addre|ss] 5 (#|
|00003450| 24 20 2e 20 31 33 32 32 | 32 29 20 6e 69 6c 5d 29 |$ . 1322|2) nil])|
|00003460| 0a 23 40 33 39 20 47 6f | 20 74 6f 20 62 65 67 69 |.#@39 Go| to begi|
|00003470| 6e 6e 69 6e 67 20 6f 66 | 20 35 31 32 20 62 79 74 |nning of| 512 byt|
|00003480| 65 20 62 6f 75 6e 64 61 | 72 79 2e 1f 0a 28 64 65 |e bounda|ry...(de|
|00003490| 66 61 6c 69 61 73 20 27 | 68 65 78 6c 2d 62 65 67 |falias '|hexl-beg|
|000034a0| 69 6e 6e 69 6e 67 2d 6f | 66 2d 35 31 32 62 2d 70 |inning-o|f-512b-p|
|000034b0| 61 67 65 20 23 5b 6e 69 | 6c 20 22 c0 c1 c2 20 c3 |age #[ni|l "... .|
|000034c0| 5c 22 21 87 22 20 5b 68 | 65 78 6c 2d 67 6f 74 6f |\"!." [h|exl-goto|
|000034d0| 2d 61 64 64 72 65 73 73 | 20 6c 6f 67 61 6e 64 20 |-address| logand |
|000034e0| 68 65 78 6c 2d 63 75 72 | 72 65 6e 74 2d 61 64 64 |hexl-cur|rent-add|
|000034f0| 72 65 73 73 20 2d 35 31 | 32 5d 20 34 20 28 23 24 |ress -51|2] 4 (#$|
|00003500| 20 2e 20 31 33 34 31 34 | 29 20 6e 69 6c 5d 29 0a | . 13414|) nil]).|
|00003510| 23 40 33 33 20 47 6f 20 | 74 6f 20 65 6e 64 20 6f |#@33 Go |to end o|
|00003520| 66 20 35 31 32 20 62 79 | 74 65 20 62 6f 75 6e 64 |f 512 by|te bound|
|00003530| 61 72 79 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ary...(d|efalias |
|00003540| 27 68 65 78 6c 2d 65 6e | 64 2d 6f 66 2d 35 31 32 |'hexl-en|d-of-512|
|00003550| 62 2d 70 61 67 65 20 23 | 5b 6e 69 6c 20 22 c0 c1 |b-page #|[nil "..|
|00003560| c2 20 c3 5c 22 89 1c 0d | 56 83 0f 00 0d 14 5c 66 |. .\"...|V.....\f|
|00003570| 29 21 87 22 20 5b 68 65 | 78 6c 2d 67 6f 74 6f 2d |)!." [he|xl-goto-|
|00003580| 61 64 64 72 65 73 73 20 | 6c 6f 67 69 6f 72 20 68 |address |logior h|
|00003590| 65 78 6c 2d 63 75 72 72 | 65 6e 74 2d 61 64 64 72 |exl-curr|ent-addr|
|000035a0| 65 73 73 20 35 31 31 20 | 61 64 64 72 65 73 73 20 |ess 511 |address |
|000035b0| 68 65 78 6c 2d 6d 61 78 | 2d 61 64 64 72 65 73 73 |hexl-max|-address|
|000035c0| 5d 20 35 20 28 23 24 20 | 2e 20 31 33 35 38 39 29 |] 5 (#$ |. 13589)|
|000035d0| 20 6e 69 6c 5d 29 0a 23 | 40 31 36 30 20 52 65 61 | nil]).#|@160 Rea|
|000035e0| 64 20 6e 65 78 74 20 69 | 6e 70 75 74 20 63 68 61 |d next i|nput cha|
|000035f0| 72 61 63 74 65 72 20 61 | 6e 64 20 69 6e 73 65 72 |racter a|nd inser|
|00003600| 74 20 69 74 2e 0a 55 73 | 65 66 75 6c 20 66 6f 72 |t it..Us|eful for|
|00003610| 20 69 6e 73 65 72 74 69 | 6e 67 20 63 6f 6e 74 72 | inserti|ng contr|
|00003620| 6f 6c 20 63 68 61 72 61 | 63 74 65 72 73 2e 0a 59 |ol chara|cters..Y|
|00003630| 6f 75 20 6d 61 79 20 61 | 6c 73 6f 20 74 79 70 65 |ou may a|lso type|
|00003640| 20 75 70 20 74 6f 20 33 | 20 6f 63 74 61 6c 20 64 | up to 3| octal d|
|00003650| 69 67 69 74 73 2c 20 74 | 6f 20 69 6e 73 65 72 74 |igits, t|o insert|
|00003660| 20 61 20 63 68 61 72 61 | 63 74 65 72 20 77 69 74 | a chara|cter wit|
|00003670| 68 20 74 68 61 74 20 63 | 6f 64 65 1f 0a 28 64 65 |h that c|ode..(de|
|00003680| 66 61 6c 69 61 73 20 27 | 68 65 78 6c 2d 71 75 6f |falias '|hexl-quo|
|00003690| 74 65 64 2d 69 6e 73 65 | 72 74 20 23 5b 28 61 72 |ted-inse|rt #[(ar|
|000036a0| 67 29 20 22 c0 c1 20 5c | 6e 5c 22 87 22 20 5b 68 |g) ".. \|n\"." [h|
|000036b0| 65 78 6c 2d 69 6e 73 65 | 72 74 2d 63 68 61 72 20 |exl-inse|rt-char |
|000036c0| 72 65 61 64 2d 71 75 6f | 74 65 64 2d 63 68 61 72 |read-quo|ted-char|
|000036d0| 20 61 72 67 5d 20 33 20 | 28 23 24 20 2e 20 31 33 | arg] 3 |(#$ . 13|
|000036e0| 37 38 39 29 20 22 70 22 | 5d 29 0a 23 40 38 36 20 |789) "p"|]).#@86 |
|000036f0| 43 6f 6e 76 65 72 74 20 | 61 20 62 69 6e 61 72 79 |Convert |a binary|
|00003700| 20 62 75 66 66 65 72 20 | 74 6f 20 68 65 78 6c 20 | buffer |to hexl |
|00003710| 66 6f 72 6d 61 74 2e 0a | 54 68 69 73 20 64 69 73 |format..|This dis|
|00003720| 63 61 72 64 73 20 74 68 | 65 20 62 75 66 66 65 72 |cards th|e buffer|
|00003730| 27 73 20 75 6e 64 6f 20 | 69 6e 66 6f 72 6d 61 74 |'s undo |informat|
|00003740| 69 6f 6e 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ion...(d|efalias |
|00003750| 27 68 65 78 6c 69 66 79 | 2d 62 75 66 66 65 72 20 |'hexlify|-buffer |
|00003760| 23 5b 6e 69 6c 20 22 08 | 83 0e 00 c1 c2 21 84 0e |#[nil ".|.....!..|
|00003770| 00 c3 c4 21 88 c5 10 c5 | c6 89 18 1e 07 1e 08 c9 |...!....|........|
|00003780| 65 64 0e 5c 6e c6 24 2b | 87 22 20 5b 62 75 66 66 |ed.\n.$+|." [buff|
|00003790| 65 72 2d 75 6e 64 6f 2d | 6c 69 73 74 20 79 2d 6f |er-undo-|list y-o|
|000037a0| 72 2d 6e 2d 70 20 22 43 | 6f 6e 76 65 72 74 69 6e |r-n-p "C|onvertin|
|000037b0| 67 20 74 6f 20 68 65 78 | 6c 20 66 6f 72 6d 61 74 |g to hex|l format|
|000037c0| 20 64 69 73 63 61 72 64 | 73 20 75 6e 64 6f 20 69 | discard|s undo i|
|000037d0| 6e 66 6f 3b 20 6f 6b 3f | 20 22 20 65 72 72 6f 72 |nfo; ok?| " error|
|000037e0| 20 22 41 62 6f 72 74 65 | 64 22 20 6e 69 6c 20 74 | "Aborte|d" nil t|
|000037f0| 20 62 69 6e 61 72 79 2d | 70 72 6f 63 65 73 73 2d | binary-|process-|
|00003800| 69 6e 70 75 74 20 62 69 | 6e 61 72 79 2d 70 72 6f |input bi|nary-pro|
|00003810| 63 65 73 73 2d 6f 75 74 | 70 75 74 20 73 68 65 6c |cess-out|put shel|
|00003820| 6c 2d 63 6f 6d 6d 61 6e | 64 2d 6f 6e 2d 72 65 67 |l-comman|d-on-reg|
|00003830| 69 6f 6e 20 68 65 78 6c | 69 66 79 2d 63 6f 6d 6d |ion hexl|ify-comm|
|00003840| 61 6e 64 5d 20 35 20 28 | 23 24 20 2e 20 31 34 30 |and] 5 (|#$ . 140|
|00003850| 36 34 29 20 6e 69 6c 5d | 29 0a 23 40 38 36 20 43 |64) nil]|).#@86 C|
|00003860| 6f 6e 76 65 72 74 20 61 | 20 68 65 78 6c 20 66 6f |onvert a| hexl fo|
|00003870| 72 6d 61 74 20 62 75 66 | 66 65 72 20 74 6f 20 62 |rmat buf|fer to b|
|00003880| 69 6e 61 72 79 2e 0a 54 | 68 69 73 20 64 69 73 63 |inary..T|his disc|
|00003890| 61 72 64 73 20 74 68 65 | 20 62 75 66 66 65 72 27 |ards the| buffer'|
|000038a0| 73 20 75 6e 64 6f 20 69 | 6e 66 6f 72 6d 61 74 69 |s undo i|nformati|
|000038b0| 6f 6e 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |on...(de|falias '|
|000038c0| 64 65 68 65 78 6c 69 66 | 79 2d 62 75 66 66 65 72 |dehexlif|y-buffer|
|000038d0| 20 23 5b 6e 69 6c 20 22 | 08 83 0e 00 c1 c2 21 84 | #[nil "|......!.|
|000038e0| 0e 00 c3 c4 21 88 c5 10 | c6 c5 c6 18 1e 07 1e 08 |....!...|........|
|000038f0| c9 65 64 0e 5c 6e c6 24 | 2b 87 22 20 5b 62 75 66 |.ed.\n.$|+." [buf|
|00003900| 66 65 72 2d 75 6e 64 6f | 2d 6c 69 73 74 20 79 2d |fer-undo|-list y-|
|00003910| 6f 72 2d 6e 2d 70 20 22 | 43 6f 6e 76 65 72 74 69 |or-n-p "|Converti|
|00003920| 6e 67 20 66 72 6f 6d 20 | 68 65 78 6c 20 66 6f 72 |ng from |hexl for|
|00003930| 6d 61 74 20 64 69 73 63 | 61 72 64 73 20 75 6e 64 |mat disc|ards und|
|00003940| 6f 20 69 6e 66 6f 3b 20 | 6f 6b 3f 20 22 20 65 72 |o info; |ok? " er|
|00003950| 72 6f 72 20 22 41 62 6f | 72 74 65 64 22 20 6e 69 |ror "Abo|rted" ni|
|00003960| 6c 20 74 20 62 69 6e 61 | 72 79 2d 70 72 6f 63 65 |l t bina|ry-proce|
|00003970| 73 73 2d 69 6e 70 75 74 | 20 62 69 6e 61 72 79 2d |ss-input| binary-|
|00003980| 70 72 6f 63 65 73 73 2d | 6f 75 74 70 75 74 20 73 |process-|output s|
|00003990| 68 65 6c 6c 2d 63 6f 6d | 6d 61 6e 64 2d 6f 6e 2d |hell-com|mand-on-|
|000039a0| 72 65 67 69 6f 6e 20 64 | 65 68 65 78 6c 69 66 79 |region d|ehexlify|
|000039b0| 2d 63 6f 6d 6d 61 6e 64 | 5d 20 35 20 28 23 24 20 |-command|] 5 (#$ |
|000039c0| 2e 20 31 34 34 33 31 29 | 20 6e 69 6c 5d 29 0a 23 |. 14431)| nil]).#|
|000039d0| 40 34 34 20 52 65 74 75 | 72 6e 20 63 68 61 72 20 |@44 Retu|rn char |
|000039e0| 66 6f 72 20 41 53 43 49 | 49 20 68 65 78 20 64 69 |for ASCI|I hex di|
|000039f0| 67 69 74 73 20 61 74 20 | 70 6f 69 6e 74 2e 1f 0a |gits at |point...|
|00003a00| 28 64 65 66 61 6c 69 61 | 73 20 27 68 65 78 6c 2d |(defalia|s 'hexl-|
|00003a10| 63 68 61 72 2d 61 66 74 | 65 72 2d 70 6f 69 6e 74 |char-aft|er-point|
|00003a20| 20 23 5b 6e 69 6c 20 22 | c0 60 66 60 54 66 5c 22 | #[nil "|.`f`Tf\"|
|00003a30| 87 22 20 5b 68 65 78 6c | 2d 68 74 6f 69 5d 20 33 |." [hexl|-htoi] 3|
|00003a40| 20 28 23 24 20 2e 20 31 | 34 38 30 34 29 5d 29 0a | (#$ . 1|4804)]).|
|00003a50| 23 40 33 37 20 48 65 78 | 20 28 63 68 61 72 29 20 |#@37 Hex| (char) |
|00003a60| 4c 48 20 28 63 68 61 72 | 29 20 52 48 20 74 6f 20 |LH (char|) RH to |
|00003a70| 69 6e 74 65 67 65 72 2e | 1f 0a 28 64 65 66 61 6c |integer.|..(defal|
|00003a80| 69 61 73 20 27 68 65 78 | 6c 2d 68 74 6f 69 20 23 |ias 'hex|l-htoi #|
|00003a90| 5b 28 6c 68 20 72 68 29 | 20 22 c0 09 21 c2 5f c0 |[(lh rh)| "..!._.|
|00003aa0| 0b 21 5c 5c 87 22 20 5b | 68 65 78 6c 2d 68 65 78 |.!\\." [|hexl-hex|
|00003ab0| 2d 63 68 61 72 2d 74 6f | 2d 69 6e 74 65 67 65 72 |-char-to|-integer|
|00003ac0| 20 6c 68 20 31 36 20 72 | 68 5d 20 33 20 28 23 24 | lh 16 r|h] 3 (#$|
|00003ad0| 20 2e 20 31 34 39 33 33 | 29 5d 29 0a 23 40 36 30 | . 14933|)]).#@60|
|00003ae0| 20 54 61 6b 65 20 61 20 | 63 68 61 72 20 61 6e 64 | Take a |char and|
|00003af0| 20 72 65 74 75 72 6e 20 | 69 74 73 20 76 61 6c 75 | return |its valu|
|00003b00| 65 20 61 73 20 69 66 20 | 69 74 20 77 61 73 20 61 |e as if |it was a|
|00003b10| 20 68 65 78 20 64 69 67 | 69 74 2e 1f 0a 28 64 65 | hex dig|it...(de|
|00003b20| 66 61 6c 69 61 73 20 27 | 68 65 78 6c 2d 68 65 78 |falias '|hexl-hex|
|00003b30| 2d 63 68 61 72 2d 74 6f | 2d 69 6e 74 65 67 65 72 |-char-to|-integer|
|00003b40| 20 23 5b 28 63 68 61 72 | 61 63 74 65 72 29 20 22 | #[(char|acter) "|
|00003b50| 08 c1 59 83 10 00 08 c2 | 58 83 10 00 08 c1 5a 87 |..Y.....|X.....Z.|
|00003b60| c3 08 c4 5c 22 89 1d c6 | 59 83 27 00 0d c7 58 83 |...\"...|Y.'...X.|
|00003b70| 27 00 0d c8 5a 82 2b 00 | c9 ca 0d 5c 22 29 87 22 |'...Z.+.|...\")."|
|00003b80| 20 5b 63 68 61 72 61 63 | 74 65 72 20 34 38 20 35 | [charac|ter 48 5|
|00003b90| 37 20 6c 6f 67 69 6f 72 | 20 33 32 20 63 68 20 39 |7 logior| 32 ch 9|
|00003ba0| 37 20 31 30 32 20 38 37 | 20 65 72 72 6f 72 20 22 |7 102 87| error "|
|00003bb0| 49 6e 76 61 6c 69 64 20 | 68 65 78 20 64 69 67 69 |Invalid |hex digi|
|00003bc0| 74 20 60 25 63 27 2e 22 | 5d 20 34 20 28 23 24 20 |t `%c'."|] 4 (#$ |
|00003bd0| 2e 20 31 35 30 37 33 29 | 5d 29 0a 23 40 36 32 20 |. 15073)|]).#@62 |
|00003be0| 54 61 6b 65 20 61 20 63 | 68 61 72 20 61 6e 64 20 |Take a c|har and |
|00003bf0| 72 65 74 75 72 6e 20 69 | 74 73 20 76 61 6c 75 65 |return i|ts value|
|00003c00| 20 61 73 20 69 66 20 69 | 74 20 77 61 73 20 61 20 | as if i|t was a |
|00003c10| 6f 63 74 61 6c 20 64 69 | 67 69 74 2e 1f 0a 28 64 |octal di|git...(d|
|00003c20| 65 66 61 6c 69 61 73 20 | 27 68 65 78 6c 2d 6f 63 |efalias |'hexl-oc|
|00003c30| 74 2d 63 68 61 72 2d 74 | 6f 2d 69 6e 74 65 67 65 |t-char-t|o-intege|
|00003c40| 72 20 23 5b 28 63 68 61 | 72 61 63 74 65 72 29 20 |r #[(cha|racter) |
|00003c50| 22 08 c1 59 83 10 00 08 | c2 58 83 10 00 08 c1 5a |"..Y....|.X.....Z|
|00003c60| 87 c3 c4 08 5c 22 87 22 | 20 5b 63 68 61 72 61 63 |....\"."| [charac|
|00003c70| 74 65 72 20 34 38 20 35 | 35 20 65 72 72 6f 72 20 |ter 48 5|5 error |
|00003c80| 22 49 6e 76 61 6c 69 64 | 20 6f 63 74 61 6c 20 64 |"Invalid| octal d|
|00003c90| 69 67 69 74 20 60 25 63 | 27 2e 22 5d 20 33 20 28 |igit `%c|'."] 3 (|
|00003ca0| 23 24 20 2e 20 31 35 33 | 32 38 29 5d 29 0a 23 40 |#$ . 153|28)]).#@|
|00003cb0| 34 37 20 52 65 74 75 72 | 6e 20 61 20 64 69 73 70 |47 Retur|n a disp|
|00003cc0| 6c 61 79 61 62 6c 65 20 | 73 74 72 69 6e 67 20 66 |layable |string f|
|00003cd0| 6f 72 20 63 68 61 72 61 | 63 74 65 72 20 43 48 2e |or chara|cter CH.|
|00003ce0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 68 65 78 |..(defal|ias 'hex|
|00003cf0| 6c 2d 70 72 69 6e 74 61 | 62 6c 65 2d 63 68 61 72 |l-printa|ble-char|
|00003d00| 61 63 74 65 72 20 23 5b | 28 63 68 29 20 22 c0 c1 |acter #[|(ch) "..|
|00003d10| 5c 6e 83 20 00 0b c4 57 | 84 18 00 0b c5 59 83 1c |\n. ...W|.....Y..|
|00003d20| 00 0b c6 57 83 1c 00 c7 | 82 31 00 0b 82 31 00 0b |...W....|.1...1..|
|00003d30| c4 57 84 2c 00 0b c5 59 | 83 30 00 c7 82 31 00 0b |.W.,...Y|.0...1..|
|00003d40| 5c 22 87 22 20 5b 66 6f | 72 6d 61 74 20 22 25 63 |\"." [fo|rmat "%c|
|00003d50| 22 20 68 65 78 6c 2d 69 | 73 6f 20 63 68 20 33 32 |" hexl-i|so ch 32|
|00003d60| 20 31 32 37 20 31 36 30 | 20 34 36 5d 20 34 20 28 | 127 160| 46] 4 (|
|00003d70| 23 24 20 2e 20 31 35 35 | 33 39 29 5d 29 0a 23 40 |#$ . 155|39)]).#@|
|00003d80| 32 34 20 49 6e 73 65 72 | 74 20 74 68 69 73 20 63 |24 Inser|t this c|
|00003d90| 68 61 72 61 63 74 65 72 | 2e 1f 0a 28 64 65 66 61 |haracter|...(defa|
|00003da0| 6c 69 61 73 20 27 68 65 | 78 6c 2d 73 65 6c 66 2d |lias 'he|xl-self-|
|00003db0| 69 6e 73 65 72 74 2d 63 | 6f 6d 6d 61 6e 64 20 23 |insert-c|ommand #|
|00003dc0| 5b 28 61 72 67 29 20 22 | c0 09 5c 6e 5c 22 87 22 |[(arg) "|..\n\"."|
|00003dd0| 20 5b 68 65 78 6c 2d 69 | 6e 73 65 72 74 2d 63 68 | [hexl-i|nsert-ch|
|00003de0| 61 72 20 6c 61 73 74 2d | 63 6f 6d 6d 61 6e 64 2d |ar last-|command-|
|00003df0| 63 68 61 72 20 61 72 67 | 5d 20 33 20 28 23 24 20 |char arg|] 3 (#$ |
|00003e00| 2e 20 31 35 37 34 37 29 | 20 22 70 22 5d 29 0a 23 |. 15747)| "p"]).#|
|00003e10| 40 33 38 20 49 6e 73 65 | 72 74 20 61 20 63 68 61 |@38 Inse|rt a cha|
|00003e20| 72 61 63 74 65 72 20 69 | 6e 20 61 20 68 65 78 6c |racter i|n a hexl|
|00003e30| 20 62 75 66 66 65 72 2e | 1f 0a 28 64 65 66 61 6c | buffer.|..(defal|
|00003e40| 69 61 73 20 27 68 65 78 | 6c 2d 69 6e 73 65 72 74 |ias 'hex|l-insert|
|00003e50| 2d 63 68 61 72 20 23 5b | 28 63 68 20 6e 75 6d 29 |-char #[|(ch num)|
|00003e60| 20 22 c0 c1 21 1a 0b c4 | 56 85 7c 00 5c 6e c5 a5 | "..!...|V.|.\n..|
|00003e70| c6 5f 5c 6e c5 a6 c7 5f | 5c 5c 5c 6e c5 a6 c7 a5 |._\n..._|\\\n....|
|00003e80| 5c 5c c8 5c 5c 5c 6e c5 | a5 c6 5f 5c 6e c5 a6 5c |\\.\\\n.|.._\n..\|
|00003e90| 5c c9 5c 5c ca 1e 0b 1e | 5c 66 1e 0d 60 0e 5c 66 |\.\\....|\f..`.\f|
|00003ea0| 55 83 39 00 c1 16 0b 0e | 0d 62 88 ce c7 21 88 cf |U.9.....|.b...!..|
|00003eb0| d0 0e 11 5c 22 63 88 0e | 5c 66 62 88 ce d2 21 88 |...\"c..|\fb...!.|
|00003ec0| d3 0e 11 21 63 88 5c 6e | 0e 14 3d 84 60 00 5c 6e |...!c.\n|..=.`.\n|
|00003ed0| 54 12 d5 5c 6e 21 88 0e | 0b 83 74 00 c4 79 88 d6 |T..\n!..|..t..y..|
|00003ee0| 75 88 5c 6e c5 a6 75 88 | 2b 0b 53 89 13 82 05 00 |u.\n..u.|+.S.....|
|00003ef0| 29 87 22 20 5b 68 65 78 | 6c 2d 63 75 72 72 65 6e |)." [hex|l-curren|
|00003f00| 74 2d 61 64 64 72 65 73 | 73 20 74 20 61 64 64 72 |t-addres|s t addr|
|00003f10| 65 73 73 20 6e 75 6d 20 | 30 20 31 36 20 36 38 20 |ess num |0 16 68 |
|00003f20| 32 20 31 31 20 35 32 20 | 6e 69 6c 20 61 74 2d 61 |2 11 52 |nil at-a|
|00003f30| 73 63 69 69 2d 70 6f 73 | 69 74 69 6f 6e 20 61 73 |scii-pos|ition as|
|00003f40| 63 69 69 2d 70 6f 73 69 | 74 69 6f 6e 20 68 65 78 |cii-posi|tion hex|
|00003f50| 2d 70 6f 73 69 74 69 6f | 6e 20 64 65 6c 65 74 65 |-positio|n delete|
|00003f60| 2d 63 68 61 72 20 66 6f | 72 6d 61 74 20 22 25 30 |-char fo|rmat "%0|
|00003f70| 32 78 22 20 63 68 20 31 | 20 68 65 78 6c 2d 70 72 |2x" ch 1| hexl-pr|
|00003f80| 69 6e 74 61 62 6c 65 2d | 63 68 61 72 61 63 74 65 |intable-|characte|
|00003f90| 72 20 68 65 78 6c 2d 6d | 61 78 2d 61 64 64 72 65 |r hexl-m|ax-addre|
|00003fa0| 73 73 20 68 65 78 6c 2d | 67 6f 74 6f 2d 61 64 64 |ss hexl-|goto-add|
|00003fb0| 72 65 73 73 20 35 31 5d | 20 35 20 28 23 24 20 2e |ress 51]| 5 (#$ .|
|00003fc0| 20 31 35 38 39 32 29 5d | 29 0a 23 40 37 32 20 49 | 15892)]|).#@72 I|
|00003fd0| 6e 73 65 72 74 20 61 20 | 41 53 43 49 49 20 63 68 |nsert a |ASCII ch|
|00003fe0| 61 72 20 41 52 47 20 74 | 69 6d 65 73 20 61 74 20 |ar ARG t|imes at |
|00003ff0| 70 6f 69 6e 74 20 66 6f | 72 20 61 20 67 69 76 65 |point fo|r a give|
|00004000| 6e 20 68 65 78 61 64 65 | 63 69 6d 61 6c 20 6e 75 |n hexade|cimal nu|
|00004010| 6d 62 65 72 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |mber...(|defalias|
|00004020| 20 27 68 65 78 6c 2d 69 | 6e 73 65 72 74 2d 68 65 | 'hexl-i|nsert-he|
|00004030| 78 2d 63 68 61 72 20 23 | 5b 28 61 72 67 29 20 22 |x-char #|[(arg) "|
|00004040| c0 c1 c2 21 21 89 1b c4 | 56 84 12 00 0b c5 57 83 |...!!...|V.....W.|
|00004050| 18 00 c6 c7 21 82 1d 00 | c8 0b 0e 09 5c 22 29 87 |....!...|....\").|
|00004060| 22 20 5b 68 65 78 6c 2d | 68 65 78 2d 73 74 72 69 |" [hexl-|hex-stri|
|00004070| 6e 67 2d 74 6f 2d 69 6e | 74 65 67 65 72 20 72 65 |ng-to-in|teger re|
|00004080| 61 64 2d 73 74 72 69 6e | 67 20 22 48 65 78 20 6e |ad-strin|g "Hex n|
|00004090| 75 6d 62 65 72 3a 20 22 | 20 6e 75 6d 20 32 35 35 |umber: "| num 255|
|000040a0| 20 30 20 65 72 72 6f 72 | 20 22 48 65 78 20 6e 75 | 0 error| "Hex nu|
|000040b0| 6d 62 65 72 20 6f 75 74 | 20 6f 66 20 72 61 6e 67 |mber out| of rang|
|000040c0| 65 2e 22 20 68 65 78 6c | 2d 69 6e 73 65 72 74 2d |e." hexl|-insert-|
|000040d0| 63 68 61 72 20 61 72 67 | 5d 20 34 20 28 23 24 20 |char arg|] 4 (#$ |
|000040e0| 2e 20 31 36 33 33 35 29 | 20 22 70 22 5d 29 0a 23 |. 16335)| "p"]).#|
|000040f0| 40 36 38 20 49 6e 73 65 | 72 74 20 61 20 41 53 43 |@68 Inse|rt a ASC|
|00004100| 49 49 20 63 68 61 72 20 | 41 52 47 20 74 69 6d 65 |II char |ARG time|
|00004110| 73 20 61 74 20 70 6f 69 | 6e 74 20 66 6f 72 20 61 |s at poi|nt for a|
|00004120| 20 67 69 76 65 6e 20 64 | 65 63 69 6d 61 6c 20 6e | given d|ecimal n|
|00004130| 75 6d 62 65 72 2e 1f 0a | 28 64 65 66 61 6c 69 61 |umber...|(defalia|
|00004140| 73 20 27 68 65 78 6c 2d | 69 6e 73 65 72 74 2d 64 |s 'hexl-|insert-d|
|00004150| 65 63 69 6d 61 6c 2d 63 | 68 61 72 20 23 5b 28 61 |ecimal-c|har #[(a|
|00004160| 72 67 29 20 22 c0 c1 c2 | 21 21 89 1b c4 56 84 12 |rg) "...|!!...V..|
|00004170| 00 0b c5 57 83 18 00 c6 | c7 21 82 1d 00 c8 0b 0e |...W....|.!......|
|00004180| 09 5c 22 29 87 22 20 5b | 73 74 72 69 6e 67 2d 74 |.\")." [|string-t|
|00004190| 6f 2d 69 6e 74 20 72 65 | 61 64 2d 73 74 72 69 6e |o-int re|ad-strin|
|000041a0| 67 20 22 44 65 63 69 6d | 61 6c 20 4e 75 6d 62 65 |g "Decim|al Numbe|
|000041b0| 72 3a 20 22 20 6e 75 6d | 20 32 35 35 20 30 20 65 |r: " num| 255 0 e|
|000041c0| 72 72 6f 72 20 22 44 65 | 63 69 6d 61 6c 20 6e 75 |rror "De|cimal nu|
|000041d0| 6d 62 65 72 20 6f 75 74 | 20 6f 66 20 72 61 6e 67 |mber out| of rang|
|000041e0| 65 2e 22 20 68 65 78 6c | 2d 69 6e 73 65 72 74 2d |e." hexl|-insert-|
|000041f0| 63 68 61 72 20 61 72 67 | 5d 20 34 20 28 23 24 20 |char arg|] 4 (#$ |
|00004200| 2e 20 31 36 36 32 38 29 | 20 22 70 22 5d 29 0a 23 |. 16628)| "p"]).#|
|00004210| 40 36 36 20 49 6e 73 65 | 72 74 20 61 20 41 53 43 |@66 Inse|rt a ASC|
|00004220| 49 49 20 63 68 61 72 20 | 41 52 47 20 74 69 6d 65 |II char |ARG time|
|00004230| 73 20 61 74 20 70 6f 69 | 6e 74 20 66 6f 72 20 61 |s at poi|nt for a|
|00004240| 20 67 69 76 65 6e 20 6f | 63 74 61 6c 20 6e 75 6d | given o|ctal num|
|00004250| 62 65 72 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ber...(d|efalias |
|00004260| 27 68 65 78 6c 2d 69 6e | 73 65 72 74 2d 6f 63 74 |'hexl-in|sert-oct|
|00004270| 61 6c 2d 63 68 61 72 20 | 23 5b 28 61 72 67 29 20 |al-char |#[(arg) |
|00004280| 22 c0 c1 c2 21 21 89 1b | c4 56 84 12 00 0b c5 57 |"...!!..|.V.....W|
|00004290| 83 18 00 c6 c7 21 82 1d | 00 c8 0b 0e 09 5c 22 29 |.....!..|.....\")|
|000042a0| 87 22 20 5b 68 65 78 6c | 2d 6f 63 74 61 6c 2d 73 |." [hexl|-octal-s|
|000042b0| 74 72 69 6e 67 2d 74 6f | 2d 69 6e 74 65 67 65 72 |tring-to|-integer|
|000042c0| 20 72 65 61 64 2d 73 74 | 72 69 6e 67 20 22 4f 63 | read-st|ring "Oc|
|000042d0| 74 61 6c 20 4e 75 6d 62 | 65 72 3a 20 22 20 6e 75 |tal Numb|er: " nu|
|000042e0| 6d 20 32 35 35 20 30 20 | 65 72 72 6f 72 20 22 44 |m 255 0 |error "D|
|000042f0| 65 63 69 6d 61 6c 20 6e | 75 6d 62 65 72 20 6f 75 |ecimal n|umber ou|
|00004300| 74 20 6f 66 20 72 61 6e | 67 65 2e 22 20 68 65 78 |t of ran|ge." hex|
|00004310| 6c 2d 69 6e 73 65 72 74 | 2d 63 68 61 72 20 61 72 |l-insert|-char ar|
|00004320| 67 5d 20 34 20 28 23 24 | 20 2e 20 31 36 39 31 36 |g] 4 (#$| . 16916|
|00004330| 29 20 22 70 22 5d 29 0a | 28 62 79 74 65 2d 63 6f |) "p"]).|(byte-co|
|00004340| 64 65 20 22 08 84 c0 02 | c1 20 10 c2 08 c3 c4 23 |de "....|. .....#|
|00004350| 88 c2 08 c5 c6 23 88 c2 | 08 c7 c8 23 88 c2 08 c9 |.....#..|...#....|
|00004360| ca 23 88 c2 08 cb cc 23 | 88 c2 08 cd ce 23 88 c2 |.#.....#|.....#..|
|00004370| 08 cf d0 23 88 c2 08 d1 | d2 23 88 c2 08 d3 d4 23 |...#....|.#.....#|
|00004380| 88 c2 08 d5 d6 23 88 c2 | 08 d7 d6 23 88 c2 08 d8 |.....#..|...#....|
|00004390| d6 23 88 c2 08 d9 d6 23 | 88 c2 08 da d6 23 88 c2 |.#.....#|.....#..|
|000043a0| 08 db dc 23 88 c2 08 dd | c4 23 88 c2 08 de d6 23 |...#....|.#.....#|
|000043b0| 88 c2 08 df e0 23 88 c2 | 08 e1 c6 23 88 e2 e3 0e |.....#..|...#....|
|000043c0| 24 21 21 e5 3d 84 8d 00 | c2 08 e3 0e 24 21 d6 23 |$!!.=...|....$!.#|
|000043d0| 88 c2 08 e6 e7 23 88 c2 | 08 e8 e7 23 88 c2 08 e9 |.....#..|...#....|
|000043e0| d6 23 88 c2 08 ea e7 23 | 88 c2 08 eb ca 23 88 c2 |.#.....#|.....#..|
|000043f0| 08 ec d6 23 88 c2 08 ed | c8 23 88 c2 08 ee ef 23 |...#....|.#.....#|
|00004400| 88 c2 08 f0 d6 23 88 c2 | 08 f1 d0 23 88 c2 08 f2 |.....#..|...#....|
|00004410| d6 23 88 c2 08 f3 d6 23 | 88 f4 1e 35 f4 f6 57 83 |.#.....#|...5..W.|
|00004420| f1 00 c2 08 f7 f8 0e 35 | 5c 22 e7 23 88 0e 35 54 |.......5|\".#..5T|
|00004430| 89 16 35 82 d9 00 29 c2 | 08 f9 fa 23 88 c2 08 fb |..5...).|...#....|
|00004440| cc 23 88 c2 08 fc d6 23 | 88 c2 08 fd fe 23 88 c2 |.#.....#|.....#..|
|00004450| 08 ff 81 40 00 23 88 c2 | 08 81 41 00 ce 23 88 c2 |...@.#..|..A..#..|
|00004460| 08 81 42 00 d6 23 88 c2 | 08 81 43 00 d6 23 88 c2 |..B..#..|..C..#..|
|00004470| 08 81 44 00 d6 23 88 c2 | 08 81 45 00 d6 23 88 c2 |..D..#..|..E..#..|
|00004480| 08 81 46 00 d6 23 88 c2 | 08 81 47 00 d6 23 88 c2 |..F..#..|..G..#..|
|00004490| 08 81 48 00 d6 23 88 c2 | 08 81 49 00 d6 23 88 c2 |..H..#..|..I..#..|
|000044a0| 08 81 4a 00 81 4b 00 23 | 88 c2 08 81 4c 00 d6 23 |..J..K.#|....L..#|
|000044b0| 88 c2 08 81 4d 00 d6 23 | 88 c2 08 81 4e 00 d6 23 |....M..#|....N..#|
|000044c0| 88 c2 08 81 4f 00 d6 23 | 88 c2 08 81 50 00 d6 23 |....O..#|....P..#|
|000044d0| 88 c2 08 81 51 00 d6 23 | 88 c2 08 81 52 00 d6 23 |....Q..#|....R..#|
|000044e0| 88 c2 08 81 53 00 81 54 | 00 23 88 c2 08 81 55 00 |....S..T|.#....U.|
|000044f0| d6 23 88 c2 08 81 56 00 | d6 23 88 c2 08 81 57 00 |.#....V.|.#....W.|
|00004500| 81 58 00 23 88 c2 08 81 | 59 00 d6 23 88 c2 08 81 |.X.#....|Y..#....|
|00004510| 5a 00 d6 23 88 c2 08 81 | 5b 00 d6 23 88 c2 08 81 |Z..#....|[..#....|
|00004520| 5c 5c 00 81 5d 00 23 88 | c2 08 81 5e 00 81 5f 00 |\\..].#.|...^.._.|
|00004530| 23 88 c2 08 81 60 00 d6 | 23 88 c2 08 81 61 00 d6 |#....`..|#....a..|
|00004540| 23 88 c2 08 81 62 00 81 | 63 00 23 88 c2 08 81 64 |#....b..|c.#....d|
|00004550| 00 d6 23 88 c2 08 81 65 | 00 d6 23 88 c2 08 81 66 |..#....e|..#....f|
|00004560| 00 d6 23 88 c2 08 81 67 | 00 d6 23 88 c2 08 81 68 |..#....g|..#....h|
|00004570| 00 d6 23 88 c2 08 81 69 | 00 d6 23 88 c2 08 81 6a |..#....i|..#....j|
|00004580| 00 d6 23 88 c2 08 81 6b | 00 d6 23 88 c2 08 81 6c |..#....k|..#....l|
|00004590| 00 d6 23 88 c2 08 81 6d | 00 d6 23 88 c2 08 81 6e |..#....m|..#....n|
|000045a0| 00 d6 23 88 c2 08 81 6f | 00 d2 23 88 c2 08 81 70 |..#....o|..#....p|
|000045b0| 00 d6 23 88 c2 08 81 71 | 00 d6 23 88 c2 08 81 72 |..#....q|..#....r|
|000045c0| 00 d4 23 88 c2 08 81 73 | 00 81 74 00 23 88 c2 08 |..#....s|..t.#...|
|000045d0| 81 75 00 81 76 00 23 88 | c2 08 81 77 00 81 78 00 |.u..v.#.|...w..x.|
|000045e0| 23 88 c2 08 81 79 00 81 | 7a 00 23 88 c2 08 81 7b |#....y..|z.#....{|
|000045f0| 00 d6 23 88 c2 08 81 7c | 00 81 7d 00 23 88 c2 08 |..#....||..}.#...|
|00004600| 81 7e 00 d6 23 88 c1 87 | 22 20 5b 68 65 78 6c 2d |.~..#...|" [hexl-|
|00004610| 6d 6f 64 65 2d 6d 61 70 | 20 6d 61 6b 65 2d 73 70 |mode-map| make-sp|
|00004620| 61 72 73 65 2d 6b 65 79 | 6d 61 70 20 64 65 66 69 |arse-key|map defi|
|00004630| 6e 65 2d 6b 65 79 20 5b | 6c 65 66 74 5d 20 68 65 |ne-key [|left] he|
|00004640| 78 6c 2d 62 61 63 6b 77 | 61 72 64 2d 63 68 61 72 |xl-backw|ard-char|
|00004650| 20 5b 72 69 67 68 74 5d | 20 68 65 78 6c 2d 66 6f | [right]| hexl-fo|
|00004660| 72 77 61 72 64 2d 63 68 | 61 72 20 5b 75 70 5d 20 |rward-ch|ar [up] |
|00004670| 68 65 78 6c 2d 70 72 65 | 76 69 6f 75 73 2d 6c 69 |hexl-pre|vious-li|
|00004680| 6e 65 20 5b 64 6f 77 6e | 5d 20 68 65 78 6c 2d 6e |ne [down|] hexl-n|
|00004690| 65 78 74 2d 6c 69 6e 65 | 20 5b 4d 2d 6c 65 66 74 |ext-line| [M-left|
|000046a0| 5d 20 68 65 78 6c 2d 62 | 61 63 6b 77 61 72 64 2d |] hexl-b|ackward-|
|000046b0| 73 68 6f 72 74 20 5b 4d | 2d 72 69 67 68 74 5d 20 |short [M|-right] |
|000046c0| 68 65 78 6c 2d 66 6f 72 | 77 61 72 64 2d 73 68 6f |hexl-for|ward-sho|
|000046d0| 72 74 20 5b 6e 65 78 74 | 5d 20 68 65 78 6c 2d 73 |rt [next|] hexl-s|
|000046e0| 63 72 6f 6c 6c 2d 75 70 | 20 5b 70 72 69 6f 72 5d |croll-up| [prior]|
|000046f0| 20 68 65 78 6c 2d 73 63 | 72 6f 6c 6c 2d 64 6f 77 | hexl-sc|roll-dow|
|00004700| 6e 20 5b 68 6f 6d 65 5d | 20 68 65 78 6c 2d 62 65 |n [home]| hexl-be|
|00004710| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 62 75 66 66 65 |ginning-|of-buffe|
|00004720| 72 20 5b 64 65 6c 65 74 | 65 63 68 61 72 5d 20 75 |r [delet|echar] u|
|00004730| 6e 64 65 66 69 6e 65 64 | 20 5b 64 65 6c 65 74 65 |ndefined| [delete|
|00004740| 6c 69 6e 65 5d 20 5b 69 | 6e 73 65 72 74 6c 69 6e |line] [i|nsertlin|
|00004750| 65 5d 20 5b 53 2d 64 65 | 6c 65 74 65 5d 20 22 7f |e] [S-de|lete] ".|
|00004760| 22 20 22 01 22 20 68 65 | 78 6c 2d 62 65 67 69 6e |" "." he|xl-begin|
|00004770| 6e 69 6e 67 2d 6f 66 2d | 6c 69 6e 65 20 22 02 22 |ning-of-|line "."|
|00004780| 20 22 04 22 20 22 05 22 | 20 68 65 78 6c 2d 65 6e | "." "."| hexl-en|
|00004790| 64 2d 6f 66 2d 6c 69 6e | 65 20 22 06 22 20 6b 65 |d-of-lin|e "." ke|
|000047a0| 79 2d 62 69 6e 64 69 6e | 67 20 63 68 61 72 2d 74 |y-bindin|g char-t|
|000047b0| 6f 2d 73 74 72 69 6e 67 | 20 68 65 6c 70 2d 63 68 |o-string| help-ch|
|000047c0| 61 72 20 68 65 6c 70 2d | 63 6f 6d 6d 61 6e 64 20 |ar help-|command |
|000047d0| 22 09 22 20 68 65 78 6c | 2d 73 65 6c 66 2d 69 6e |"." hexl|-self-in|
|000047e0| 73 65 72 74 2d 63 6f 6d | 6d 61 6e 64 20 22 5c 6e |sert-com|mand "\n|
|000047f0| 22 20 22 0b 22 20 22 0d | 22 20 22 0e 22 20 22 0f |" "." ".|" "." ".|
|00004800| 22 20 22 10 22 20 22 11 | 22 20 68 65 78 6c 2d 71 |" "." ".|" hexl-q|
|00004810| 75 6f 74 65 64 2d 69 6e | 73 65 72 74 20 22 14 22 |uoted-in|sert "."|
|00004820| 20 22 16 22 20 22 17 22 | 20 22 19 22 20 33 32 20 | "." "."| "." 32 |
|00004830| 63 68 20 31 32 37 20 66 | 6f 72 6d 61 74 20 22 25 |ch 127 f|ormat "%|
|00004840| 63 22 20 22 1b 01 22 20 | 68 65 78 6c 2d 62 65 67 |c" ".." |hexl-beg|
|00004850| 69 6e 6e 69 6e 67 2d 6f | 66 2d 35 31 32 62 2d 70 |inning-o|f-512b-p|
|00004860| 61 67 65 20 22 1b 02 22 | 20 22 1b 03 22 20 22 1b |age ".."| ".." ".|
|00004870| 04 22 20 68 65 78 6c 2d | 69 6e 73 65 72 74 2d 64 |." hexl-|insert-d|
|00004880| 65 63 69 6d 61 6c 2d 63 | 68 61 72 20 22 1b 05 22 |ecimal-c|har ".."|
|00004890| 20 68 65 78 6c 2d 65 6e | 64 2d 6f 66 2d 35 31 32 | hexl-en|d-of-512|
|000048a0| 62 2d 70 61 67 65 20 22 | 1b 06 22 20 22 1b 07 22 |b-page "|.." ".."|
|000048b0| 20 22 1b 08 22 20 22 1b | 09 22 20 22 1b 5c 6e 22 | ".." ".|." ".\n"|
|000048c0| 20 22 1b 0b 22 20 22 1b | 5c 66 22 20 22 1b 0d 22 | ".." ".|\f" ".."|
|000048d0| 20 22 1b 0e 22 20 22 1b | 0f 22 20 68 65 78 6c 2d | ".." ".|." hexl-|
|000048e0| 69 6e 73 65 72 74 2d 6f | 63 74 61 6c 2d 63 68 61 |insert-o|ctal-cha|
|000048f0| 72 20 22 1b 10 22 20 22 | 1b 11 22 20 22 1b 12 22 |r ".." "|.." ".."|
|00004900| 20 22 1b 13 22 20 22 1b | 14 22 20 22 1b 15 22 20 | ".." ".|." ".." |
|00004910| 22 1b 17 22 20 22 1b 18 | 22 20 68 65 78 6c 2d 69 |".." "..|" hexl-i|
|00004920| 6e 73 65 72 74 2d 68 65 | 78 2d 63 68 61 72 20 22 |nsert-he|x-char "|
|00004930| 1b 19 22 20 22 1b 61 22 | 20 22 1b 62 22 20 68 65 |.." ".a"| ".b" he|
|00004940| 78 6c 2d 62 61 63 6b 77 | 61 72 64 2d 77 6f 72 64 |xl-backw|ard-word|
|00004950| 20 22 1b 63 22 20 22 1b | 64 22 20 22 1b 65 22 20 | ".c" ".|d" ".e" |
|00004960| 22 1b 66 22 20 68 65 78 | 6c 2d 66 6f 72 77 61 72 |".f" hex|l-forwar|
|00004970| 64 2d 77 6f 72 64 20 22 | 1b 67 22 20 68 65 78 6c |d-word "|.g" hexl|
|00004980| 2d 67 6f 74 6f 2d 68 65 | 78 2d 61 64 64 72 65 73 |-goto-he|x-addres|
|00004990| 73 20 22 1b 68 22 20 22 | 1b 69 22 20 22 1b 6a 22 |s ".h" "|.i" ".j"|
|000049a0| 20 68 65 78 6c 2d 67 6f | 74 6f 2d 61 64 64 72 65 | hexl-go|to-addre|
|000049b0| 73 73 20 22 1b 6b 22 20 | 22 1b 6c 22 20 22 1b 6d |ss ".k" |".l" ".m|
|000049c0| 22 20 22 1b 6e 22 20 22 | 1b 6f 22 20 22 1b 70 22 |" ".n" "|.o" ".p"|
|000049d0| 20 22 1b 71 22 20 22 1b | 72 22 20 22 1b 73 22 20 | ".q" ".|r" ".s" |
|000049e0| 22 1b 74 22 20 22 1b 75 | 22 20 22 1b 76 22 20 22 |".t" ".u|" ".v" "|
|000049f0| 1b 79 22 20 22 1b 7a 22 | 20 22 1b 3c 22 20 22 1b |.y" ".z"| ".<" ".|
|00004a00| 3e 22 20 68 65 78 6c 2d | 65 6e 64 2d 6f 66 2d 62 |>" hexl-|end-of-b|
|00004a10| 75 66 66 65 72 20 22 03 | 03 22 20 68 65 78 6c 2d |uffer ".|." hexl-|
|00004a20| 6d 6f 64 65 2d 65 78 69 | 74 20 22 18 5b 22 20 68 |mode-exi|t ".[" h|
|00004a30| 65 78 6c 2d 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |exl-begi|nning-of|
|00004a40| 2d 31 6b 2d 70 61 67 65 | 20 22 18 5d 22 20 68 65 |-1k-page| ".]" he|
|00004a50| 78 6c 2d 65 6e 64 2d 6f | 66 2d 31 6b 2d 70 61 67 |xl-end-o|f-1k-pag|
|00004a60| 65 20 22 18 10 22 20 22 | 18 13 22 20 68 65 78 6c |e ".." "|.." hexl|
|00004a70| 2d 73 61 76 65 2d 62 75 | 66 66 65 72 20 22 18 14 |-save-bu|ffer "..|
|00004a80| 22 5d 20 36 29 0a | |"] 6). | |
+--------+-------------------------+-------------------------+--------+--------+
